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の ふ 潜 
PUG DISK 販売 の お 知ら せ 


本 書 に 掲載 し た サン プル プロ グラ ム が すべ て 入っ た 、Pc-9801 シリ ー ズ 用 (MS-DOS) フ 
ロッ ピー ディ スク を 販売 いた し ます 。 デ ィ ス ク の サイ ズ (5.25 イン チ ま た は 3.5 イ ンチ ) と 
種類 (2DD また は 2HD) を 明記 の 上 、 現 金 書留 か 郵便 振替 で 下記 まで 申し 込ん で くだ さ い 。 
定価 は 10,300 円 (税込 ) で す 。 

な お 、 デ ィ ス ク の 内 容 は 、 プ ログ ラム ソー ス の テキ スト ファ イル の み で す 。 

【 申 し 込み 先 】 

〒102 東京 都 千 代田 区 麹町 5-5-5 JrToc 出版 局 

POG ディ スク 「 タ ー ボ ・ エ キス パー ト ver.6 」 係 

※ 通 信 欄 に 「 タ ー ボ ・ エ キス ペパー ト ver.6 希望 」 と 書き 、 デ ィ ス ク の サイ ズ と 種類 を 
明記 の こと 。 


【 郵 便 振替 】 
し 東京 7-170829( 株 ) ジッ ク 


は じ め に 


TURBO Pascal に よる プロ グラ ミン グ は アメ リカ ば か り で な く 、 日 本 で も 大 学 の キャ 
ン パ ス を 中 心 に 広まっ て いま す 。 そ の 最大 の 理由 は 、 教 育 用 言語 と し て Pascal が 主流 に 
な っ た た めで す 。 確か に 、 構造 化 手法 な ど と めん どう な こと を 持ち 出さ な く て も 、Pascal 
で 書か れ た プロ グラ ム は 論理 構造 が と て も 分 か りや すく な り ま す 。 

し か し 、Pascal は 教育 用 で 、 実 用 的 な ソフ トウ ェ ア の 開発 は C 言語 で な けれ ば と い 
う 声 も よく 聞か れ ま す 。 ど う せ ソフ トウ ェ ア 開 発 を 言語 で や る の だ か ら 、 コ ン ピ ュ ー 

言語 の 教育 も C 言 語 で や る べき だ と いう ひと さそ いま す 。 

を う で し は 9 か 

ぼく の 今 ま で の 経験 か らい う と 、Pascal で 上 手 に プロ グラ ム を 作れ る 人 な ら 、C 言 
語 で も BASIC 、FORTRAN 、 ア セン ブリ 言語 で きえ も 上 手 に プロ グラ ム が 作れ る も 
の で す 。 つ まり 、Pascal で ソフ トウ ェ ア 開 発 が で きる も の な ら 、 何 も C 言 語 を 一 か ら 
勉強 する 必要 は な い の で す 。 い つの 日 か 〇 言語 で 開発 する 必要 に 人 据 ら れ て か ら 勉 強 す 
れ ば 十分 で す 。 

せっ か く 慣 れ た Pascal を ソフ トウ ェ ア 開 発 を し た い が た め に 捨て る こと は あり ませ 
ん 。Borland International 社 が 発売 し て いる TURBO Pascal は パソ コン で の ソフ ト 
ウェ ア 開 発 の た め の Pascal な の で す 。 し か も 、TURBO Pascal に は 最近 の 話題 で ある 
オブ ジェ クト 指向 プロ グラ ミン グ も 取り 入れ られ 、 ま すま す 便 利 に な り ま し た 。 

この 本 は 本 書 の 姉妹 編 で ある 「 TURBO Pascal ト レー ニン グマ ニュ アル 」 を 読み 終 
えた 読者 を 対象 に 、 実 際 の パソ コン ソフ トウ ェ ア 開 発 の 取り か か り の ノウ ハウ を 解説 す 
oe 上 凍 的 と し で ます 。 

この 本 に より ひと り で も 多く の ひと が TURBO Pascal に より プロ グラ ム を 作る 喜び 
を 味わっ て くれ れ ば 、 こ れ ほ どう れ し い こと は あり ませ ん 。 

最後 に な り ま し た が 、TURBO Pascal の 発売 元 で ある (株 ) マイ クロ ソフ トウ ェ ア ア 
ソ シ ェ イツ の 企画 部 長 で ある 篠原 幸 吾 さん に 大 変 お 世話 に な り ま し た 。 ま た 、TURBO 
Pascal の ウィ ザー ド (?) で ある 田中 真 二 君 に は 、 本 書 全体 に 渡り お 手伝い いた だ きま し 
だ だ で で に 記 じ で 騰 謝 W だ じ ま す 。 


1991 年 7 月 。 ポ ボストン.MIT キャ ン パ ス に て 


小林 條 喝 


ます 道具 を そろ えよ う 


エキ スパ ー ト へ の 道 


この 章 で は 第 2 章 以 降 に 登場 する プロ グラ ム を 理解 し た り 、 自 分 で 改造 し た りす る た 
め に そろ えて お く 「 道 具 」 に つい て 説明 し ます 。 道 具 と し て は 当然 TURBO Pascal と 
パソ コン が 必要 で す が 、 あ な た が 住ん で いる 場所 に よ っ て は 参考 資料 が な か な か 手 に 入 
ら な いこ と が よく あり ます 。 そ れ に 参考 資料 で は 読者 が 当然 知っ て いる と 仮定 し て いる 
子 備 知識 が な いと 、 書 いて ある こと が よく わか ら な いこ と も ある で し ょ う 。 特 に 、 あ な 
た が プロ グラ ミン グ の 初級 者 ど だ と 、 ど れ も 上 難し いこ と ば か り 書 いて あり 手がかり が な く 
て 困る こと も ある で し ょ う 。 

し か し 、 心配 は 無用 で す 。 本 書 で は 、 各 章 の サン プル プロ グラ ム に は それ ぞ れ 詳し い 解 
説 が 付け て あり ます 。 そ の 解説 を 理解 する た め の 基 礎 知識 は 、 本 書 の 姉妹 編 「 TURBO 
Pascal ト レー ニン グマ ニュ アル 」(JICC 出版 局 ) で 十分 な は ず で す 。Pascal 自体 の 文法 
や 、TURBO Pascal 特有 の 機能 の 基礎 は この 本 に 書い て あり ます 。 先 の 章 に 読み 進ん 
で わか ら な く な っ た ら 、 い つ で も 参考 に し て くだ さい 。 [ 


ガイ ドブ ッ ク あ れこ ご これ 
1 一 1m 参 考 資料 


(1) TURBO Pascal マニ ュ ア ル 

参考 資料 と し て まず 絶対 に 必要 な も の は TURBO Pascal ver.( バ ー ジ ョ ン )6.0 の マ 
ニュ アル で す 。 標 準 的 な Pascal の 解説 書 に は Pascal の 生み の 親 で ある N.Wirth 仕様 の 
機能 し か 書い て あり ませ ん 。TURBO Pascal は パソ コン の 機能 を フル に 引き 出す た め 
標準 的 な Pascal を か な り 拡 張 し て いま す 。 実 は この 拡張 機能 こそ が TURBO Pascal の 
価値 な の で す 。 こ の エキ スパ ー ト ・ マ ニュ アル で は 拡張 機能 を フル に 活用 し ます か ら 、 
標準 Pascal に つい て 書か れ た 本 で は 役に立ち ませ ん 。 

TURBO Pascal で は 標準 ライ ブラ リ と し て MS-DOS や グラ フィ ッ ク ス 関係 の も の が 
非常 に 充実 し て いま す 。 さ ら に 、ver.5.5 以降 は オブ ジェ クト 指向 プロ グラ ミン グ へ の 
拡張 も な され て いま す 。 こ れ ら すべ て の 機能 は マニ ュ ア ル に 詳し く 記載 され て いま す 。 

マニ ュ ア ル は TURBO Pascal を 購入 すれ ば 添付 され て いま すか ら 、 入 手 の 心配 は あ 
り ま せん 。 た だ 、 こ こ 数 年 で バー ジョ ン ア ッ プ を 繰り 返し まし た か ら 、 ぜ ひ 手 持ち の 
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TURBO Pascal を ver.6.0 に バー ジョ ン ア ッ プ し て お いて くだ さい 。 これ 以前 の バー 
ジョ ン の TURBO Pascal を 過去 に 購入 し 、 ユ ー ザ ー 登 録 し て ある 人 に は すでに バー ジョ 
ン ア ッ プ の 案内 が き て いる は ず で す 。 も し も 、 バ パ バー ジョン ア ッ プ の 案内 を その まま に し 
て 古い バー ジョ ン の TURBO Pascal を まだ 持っ て いた り 、 案 内 が こ な か っ た り し た と 
き に は 以下 の 住所 に 連絡 を と っ て みて くだ さい 。 
〒107 東京 都 港 区 南青山 7-8-1 小田 急 南 青山 ビル 
(株 ) マイ スロ ウマ ジホ ド 以 アツ シュ ユネ ョ カス マー サポ テト セン ター 
電話 : (03)3486-1403 
FAX : (03)3486-8905 
添付 の マニ ュ ア ル は ユー ザー ズ ガ イド 、 プロ グラ マー ズ ガ イド 、 ラ イブ ラリ レフ ァ レ 
ンス 、TURBO Vision ガイ ド の 4 民 で す 。 こ の どれ も か な り ペ ー ジ 数 が あっ て 読み ご 
た を (?) が ある も の で す 。 こ の マニ ュ ア ル は TURBO Pascal で 何 か プ ログ ラム を 作ろ 
うと する た びに 参照 する も の で す 。 そ れ ぞ れ の 内 容 は 次 の よう に な っ て いま す 。 
(&) ユー ザー ズ ガ イド 
イン スト レー ショ ン 、 統 合 環境 、 チ ュー トリ アル (自習 ) ガイ ド 、 コ マン ドラ イン コ 
ン パ イラ 
(b) プロ グラ マー ズ ガ イド 
言語 定義 、 ユ ニッ トラ イブ ラリ 、 ア セン プリ 言語 、 エ ラー メッ セー ジ 集 
(c) ライ ブラ リ レ フ ァ レ ンス 
標準 手続 き を アル ファ ベッ ト 順 に 並べ で た ラン タイ ムラ イブ ラリ 


(2) MS-DOS マニ ュ ア ル 

TURBO Pascal の マニ ュ ア ル の 次 は MS-DOS の マニ ュ ア ル で す 。 現在 発表 きれ て い 
る MS-DOS は ver3.3C で す 。* 

MS-DOS は 特に 購入 し な く て も ワー プロ ソフ ト な ど ア プリ ケー ショ ン に 付属 する も 
の で 十分 で す が 、 や は り マ ニュ アル が あっ た ほう が な に か と 便利 で す 。MS-DOS を 新 
た に 購入 する と 数 万 円 は 確実 に か か る の で 、 流 用 し た いと ころ で す 。 こ の よう に バン ド 
ル (モッ ト に な っ て いる ) され て いる ソフ トウ ェ ア と 切り 放し て TURBO Pascal を 走ら 
せる た め に MS-DOS を 流用 し て も よい の か どう か は 議論 が 分 か れる と こ で す 。 

自分 で プロ グラ ム を 作っ て いる 分 に は か まい ませ ん が 、TURBO Pascal で ソフ トウ ェ 
ア を 開発 し て 、 そ の ソフ トウ ェ ア に MS-DOS を 勝手 に 付け る こと は 許さ れ ま せん 。 た 
だ し 、MS-DOS を 付け な けれ ば TURBO Pascal で 開発 し た ソフ トウ ェ ア は 商品 と し て 
販売 する こと が で きま す 。 そ の た め の 条 件 は TURBO Pascal に 添付 され て いる 「 ソ フ 
トウ ェ ア の ご 使用 条件 」 に 詳し く 定 め て あり ます 。 

いずれ に し て も 、MS-DOS を 詳し く 知 り た い の で あれ ば 、 新 た に MS-DOS を 購入 し 
て マニ ュ ア ル を 手 に 入れ で お $ ぐ こと を すす め ま す 。. ア プリ ケー ショ ン に バン ドル じ し て い 


11991 年 6 月 末 現 在 、 日 本 電気 「PC-9800 シリ ー ズ 日 本 語 MS-DOS(ver3.3C) 」。 
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る MS-DOS を 流用 する の な ら ば 、 参 考 資料 と し て 次 の 2 冊 が よい で し ょ う 。 


「 MS-DOS プロ グラ マー ズ ハ ンド ブッ ク 」( ア スキ ー) 
標準 MS-DOS バン ドブ ッ ク 」( ア スキ ー) 


MS-DOS 自体 に つい て 知り た い の な ら 、PUG ブッ クス (JICO 出版 局 ) の 


「 MS-DOS 基礎 の 基礎 」 
「 MS-DOS トレ ー ニ ング マニ ュ ア ル 」 


が 分 か りや すく 書い て ある の で 、 ぜ ひ 一 読 を お すす めし ます 。 


ター ゲッ ト に する の は 
1-2m 使 用 し た パソ コン 

TURBO Pascal の 機能 を フル に フル に 発揮 きせ る と な る と 、 ど うし て も パソ コン の 
ハー ドウ ェ ア に 依存 し た プロ グラ ム に な ら ざ る を えま せん 。 そこ で 問題 に な る の は どの 
パソコ ン を 開発 ター ゲッ ト (対象 ) に する か で す 。 で きれ ば すべ て の 機種 の パソ コン で 
動作 する プロ グラ ム が 開発 で きれ ば それ に こし た こと は あり ませ ん 。 し か し 、 現状 で は 
それ は 不可 能 で す 。 現在 まで に 発売 され た パソ コン の 機種 は 国産 の も の だ け で も 100 機 
種 以 上 も ある か ら で す 。 

ここ で は 日 本 電気 の PC-9801 シリ ー ズ の パソ コン を 対象 に し まし た 。 

TURBO Pascal 自体 が 日 本 の パソ コン で は PC-9801 シリ ー ズ に し か 対応 し て いま せ 
ん 。 し た が っ て 、 互 換 機 で ある エプソン の PCO シリ ー ズ の み が そ れ 以 外 の 使用 機種 と な 
り ま す 。 ア メリ カ で は IBML-PO 互換 機 = MS-DOS マシ ン で 、 す べ て 互換 の 仕様 に な っ 
て いま す が 、IBM-PO 用 の TURBO Pascal が 用 意 き れ て いま す 。 も し も 、 あ な た が 英 
義 を 昔 に し な い の な ら 、 開 発 タ クー ゲット と し て IBM-PC を 使え ば 、 か な り よ い 環 境 に な 
る で し ょ う 。 今後 、TBM 社 が 発表 し た DOS/V が 本 格 的 に 動く よう に な れ ば 、IBM-PC 
三 換 機 で も 日 本 語 が 使用 で きる よう に な り ま す 。 

ひと くち に PC-9801 シリ ー ズ と いっ て も 、OPU の 違い で 16 ビッ ト 、32 ビッ ト の モ 
デル が あり ます し 、 画 面 表示 も ノー マル と ハイ レゾ (ハイ レゾ リュ ーション 、 高 解像度 ) 
モデ ル が あり ます 。 本 書 の サン プル プロ グラ ム は 16 ビッ ト 、 ノ ー マ ル モデ ル で 動作 を 
確か め て あり ます 。 具体 的 に は PO-9801VM で 実行 し て いま す 。 VM モデ ル は PC-9801 
シリ ー ズ の 中 で も か な り 古 い ほ うに 属し ます 。 け れ ど も 、 販売 台 数 が か な りあ っ た た め 、 
ノ ソフト ハウ ス が 必ず 動作 を 保証 する モデ ル で も ある の で 、 開 発 タ ー ゲ ッ の し じじ な ) 
モデ ル の 直 い で 動作 し な いよ うな サン プル ・ プ ログ ラム に な ら な いよ うに 注意 は し ま 
し た が 、 場 合 に よっ て は 正常 な 動作 が 保証 で き な い こと を お 断り し て お きま す 。 こ うぃ 
う と 、 何 か 無責任 の よう に 聞こ える か も 知れ ませ ん が 、 す べ て の モデ ル で 動作 を チェ ッ 
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ク す る こと は 物理 的 に も 時 間 的 に も 無理 で ある こと は わか っ て いた だ ける と 思い ます 。 
まだ 。 サ ンプ ループ サダ ラム は で きる だ け バ パグ ・ フ リー (バグ な し ) で ある . 衣 性 二 た 
の 努力 を し た つも り で す が 、 そ れ で も バグ が 残っ て いる 可能 性 が あり ます 。 あ る サン プ 
ル ・ プ ログ ラム が 正常 に 動作 し な いと き に 、 そ れ が パソ コン の モデ ル の 違い に 由来 する 
の か 、 プ ログ ラム 内 の バグ に 由来 する も の な の か (ご めん な さい ! ) を 区 別 す る の は と 
て も 難し い 問 題 で す 。 

し か し 、TURBO Pascal の エキ スパート を 目指 す 読者 で あれ ば 、 も し 動作 し な い 場 
合 で も 必ず 解決 で きる で し ょ う 。 そ の 人 解決 の 過程 も エキ スパ ー ト に な る た め の ト レー ニ 
ング と 思っ で で だ さい 。} な だ 、E ど ん な パグ が ある ぞ と アツ ログ ラム を 町 正 で きる まう に 
な れ ば 、 ぼ く よ り 実力 が 十分 ある と いう こと に な り ま す 。 

PC-9801 以外 の パソ コン を 持っ て いる 読者 は どう し た ら よ い の で し ょ うか 。 世 の 中 の 
あら か た の パソ コン 書籍 が PC-9801 向け の 上 に 、 こ の 本 まで も と が っ か りさ れる か も 
し れ ま せん 。 し か し 、 先 に も 断っ た よう に 、 パ ソコ ン の ハー ドウ ェ ア に 関係 する 部 分 を 
操作 する よう な プロ グラ ム 開 発 を 解説 する に は 、 機 種 を 限定 せ ざ る を えま せん 。 結局 、 
ユー ザー 数 が 多い PC-9801 シリ ー ズ を 対象 と する と いう 「 多 数 決 」 で こう な り ま し た 。 

さて 、 パ ソコ ン の ハー ドウ ェ ア に 密接 に 関係 する プロ グラ ム を 作る うえ で 、 ハ ー ド 
ウェ ア の 解説 書 は 欠か せま せん 。PC-9801 シリ ー ズ の パソ コン に 付属 し て くる 「 ユ ー 
ザー ズ マ ニュ アル だけ で は 不足 で す 。 

本 当 は 日 本 電気 か ら ソ フト ハウ ス 向 け に 出し て いる 「 テ クニ カル マニ ュ ア ル 」 が あれ 
ば 一 番 よ い の で す が 、 残 念 な が ら 一 般 テ ユー ザー の 手 に は 入り ませ ん 。 そ こ で 、 市 販 の 解 
説 書 の 中 か ら お すす めす る と な る と 、 次 の 2 冊 が よい で し ょ う 。 


「 PC-9801 解析 シリ ー ズ 」( 秀 和 ト レー ディ ング ) 
「 PO-9801 シリ ー ズ テク ニカ ル デ ー タ ブッ ク 」( ア スキ ー) 


前 者 は 内 容 的 に は 詳細 に わた っ て いる の で す が 、 か な り パ ソコ ン の ハー ドウ ェ ア に つ 
いて 予備 知識 の ある ユー ザー を 対象 に し て いる の で 、「 TURBO Pascal トレ ー ニ ング 
マニ ュ ア ル 」 を 終わ っ た ば か り の 読者 に は 少々 難し いか も し れ ま せん 。 そ ん な 読者 に は 
後者 の ほう が よい で し ょ う 。 

し か し 、 こ れ ら の 解説 書 は どう し て も な けれ ば な ら な いと いう わけ で は あり ませ ん 。 
PC-9801 の 「 ユ ー ザ ー ズ マニ ュ ア ル 」 に な いよ うな 情報 が 必要 な と き に は 、 本 書 の 中 
で 解説 する よう に し て あり ます 。 


DOS ユニ ッ ト 攻 略 法 


MS-DOS コネ クシ ョ ン 


それ で は エキ スパ ー ト へ の 第 一 歩 と し て 、MS-DOS に 関係 する プロ グラ ム を 作っ て 
み ま し ょ う 。TURBO Pascal は バー ジョ ン 4 以上 に な っ て か ら 、MS-DOS 関連 の 手続 
き や 関 数 は Dos と いう ユニ ッ ト に まとめ られ まし た 。 

普通 、MS-DOS が 提供 する 機能 を 直接 利用 する た め に は 、 フ ァ ン クシ ョ ン ・ コ ー ル 
に 頼ら な けれ ば な ら な い は ず で す 。 そ の た め に 本 来 高級 言語 で ある TURBO Pascal の 
中 で も 各 レ ジス タ を 意識 し て 使用 せ ざ る を えな か っ た の で す 。 そ れ が Dos ユニ ッ ト の 
充実 に よっ て 、 か な り の 機能 が 標準 的 な Pascal の 手続 き ・ 関 数 と し て 利用 可能 に な り 
に 

し か し 、 こ こ で 注意 し な けれ ば いけ な い の は 、 利 用 可能 に な っ た と いっ て も 文法 的 に 
標準 Pascal に 合わ せ た 使用 が 可能 な だ け な の だ と いう こと で す 。 ニ コラ ス ・ ビ ルト た 
ち が 提 案 し た 標準 Pascal に は 当然 、 こ ん な ユニ ッ ト な ど 用 意 さ れ て いま せん 。Pascal 
は 一 種 の 高級 言語 の 仕様 な の で すか ら 、OS に 直接 関連 する 機能 を 持た せる わけ に は い 
か な い の で す 。 で すか ら 、MS-DOS を 利用 する こと を 前 提 と し て Pascal が で き て いる 
は ず が あり ませ ん 。 

2 まとう いる あさ た 妥 を 。 

TURBO Pascal は いか に パソ コン で の プロ グラ ム 作 成 を 容易 に する か に 特 化し た し 
た も の な の で す 。 し た が っ て 、Pascal が 最初 に 提案 され た 「 ど の よう な コン ピュ ー タ で 
も 動作 する 」 と いう コン セプト か ら 離 れ て し まっ た と も いえ る で し ょ う 。BASIC は そ 
の 生ま れ た と きか ら 個 々 の パソ コン に 依存 する こと を 運命 づけ られ て いた よう な も の 
で 、 そ れ は や む を えな いこ と だ っ た の で す 。 し か し 、 コ ンピュータ グ の 機種 に 依存 し な い 
よう に と いう Pascal の 原点 が TURBO Pascal で は 崩れ て し まっ て いる と 「 文 句 」 を い 
う 人 た ちゃ も 多い よう で す 。 

と は いえ 、 他 の コン ピュ ー タ で も その まま 使え る か どう か の 移植 性 の 問題 を すべ て 禁 
準 ユ ニッ ト に し わ 寄 せ し て 、 そ れ を 使わ な けれ ば 標準 Pascal で 記述 し た プロ グラ ム が 
動作 する よう に な っ て いれ ば 、 標 準 Pascal に 準拠 し て いる と いえ ます 。 

この 章 で は 最初 に Dos ユニ ッ ト に どの よう な 変数 や 、 定 数 、 さ ら に 手続 き が 用 意 き 
れ て いる の か を 調べ て 、 そ の 後 で 実際 に 使用 する 例題 を 作っ て みる こと に し ます 。 
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2 さ に 3 ーー に 2 

ファ ンク ショ ン ・ コ ー ル に さよ うな ら ? 
2ー-1mDos ユ ニッ ト 

MS-DOS の ファ ンク ショ ン ・ コ ー ル を 使う 必要 が ある と き に は 、 割 り 込み 手続 き Intr 
か シス テム ・ コ ー ル 用 手続 き Msdos を 利用 し ます 。 こ れ ら の 手続 き は パソ コン 内 部 の 
各 レ ジス タ を 参照 し ます か ら 、 そ れ を TURBO Pascal の 変数 と し て 定義 し て お か ね ば 
な り ま せん 。 そ の た め TURBO Pascal は 可変 弄 の レコー ド を Dos ユニ ッ ト の 中 に 定義 
し て 持っ て いま す 。 8 

以下 の よう な レコ ー ド 型 の 変数 定義 が Dos ユニ ッ ト の 中 で すでに 行わ れん て いる の で す 。 
type Reg1sters= record 

case integer of 
0: (AX,BX,CX,DX,BP ,ST,DT ,DS ,ES,F1ags: word): 


1: (AL,AH,BL,BH,CL,CH,DL,DH: byte) : 
end: 


ファ ンク ショ ン ・ コ ー ル を 行う プロ グラ ム 、 つ まり あな た が 作る プロ グラ ム の 先頭 の 
ほう で uses 宣言 で Dos ユニ ッ ト の 使用 を 宣言 し て お け ば 、Registers 型 の 変数 を 定義 済 
み の も の と し で 俺 みこ と が で きま が よう つ ほ 0 


program DOS_Example: 
uses Dos: 


Var Dos_reg : Reg1sters: 


と すれ ば 、Dos_reg と いう レコード 型 変数 は 内 部 の 各 レ ジス タ を 参照 する 変数 に な り ま 
す 。 こ うし た 後 で 、Msdos 手続 き な ら 、 


Dos_reg.ax := $xxxx: 
Msdos(reg) : 


と し ます 。 
一 方 、 割 り 込 み intr 手続 き を 使う の な ら ば 、 


Dos_reg.ax := $xxxx: 
Tntr($21 ,reg) : 


と を も ます 5 
つま り 、 割 り 込 み の $21($ マ ー ク は 16 進数 を 表す ) は MS-DOS の ファ ンク ショ ン ・ 
コー ル に 割り 当て られ て いる だ た め 、 同 じ こ と に な っ た の で す 。 
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し か し 、 こ の よう な や り 方 は 、 最 後 の 手 段 と で も いう べき も の で 、IDE( 統 合 環 境 ) と 
な っ た ver4.0 、 そ し て 現行 の ver6.0(1991 年 6 月 現在 ) で は あら か た の MS-DOS の ファ 
ンク ショ ン ・ コ ー ル が Dos と いう 名 称 の ユニ ッ ト 、 い わ ば ルー チン 集 に 納め られ て いる 
の で すか ら 、 で きる だ け そ れ を 利用 し て 標準 的 な Pascal に 近い 形 で プロ グラ ム を 作る 
いし ましょ よ ブ 。 

さて 、 次 の 2 つの プロ グラ ム を 見 て くだ さい 。 リ スト 2-1A で は ファ ンク ショ ン ・ コ ー 
ル 、 リ スト 2-1B で は Dos ユニ ッ ト に 入っ て いる GetTime 手続 き を 利用 し て Timer と 
いう 名 前 の 手続 き で パソ コン の カレ ンダ 時 計 を 読み 出し て いま す 。 


圏 リ スト 2-1A 
・ Program LST2_1a: 


: uSeS Crt,Dos: 


2 

3 

4 

5: var 
6 Startsec , 

7 endsec : 1nteger : 

8: 

9: procedure Timer(var second : 1nteger) : 
10: var 

3 reg : Registers : 


13: begin 

14: reg.ax := $2c00: 

15: Msdos(reg) : 

16: second := Trunc(reg.cx/256)*3600+(reg.cx mod 256) *60 
1 +Trunc(reg .dx/256) : 

18: end:tof Timer} 


20: begin 

2 まる CLrScr: 

22: T1mer(startsec) : 

23: DeLay(1000) : 

24 : Timer(endsec) : 

25: WriteLn( ?Time: 〉,endsec-startsec) : 
26: end.tof Main+ 


較 リ スト 2-1B 


: PrOogram LST2_1b: 


1 
の 
軸 
4: 
5: 


: usSes Crt,Dos: 


Var 
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6: Starthour , Startm1n , Startsec , Startcent : word: 
絶 > endhour , endmin , endsec , endcen セ : WOrd: 
に 人 elapsedsec : 1nteger : 

9: begin 

10: CLrScr: 

人 GetTime(starthour , Sartmin , Startsec , Startcent) : 
2: DeLay(1000) : 

9 い os GetTime(endhour , endmin , endsec , endcent) : 

14: elapsedsec := 3600*(endhour-starthour ) 

15: +60*(endm1in-startmin ) 

16: +(endsec-startsec) : 

1 交 : WriteLn( ?Time: ),e]apsedsec) : 

18: end. 


まず 、 リ スト 2-1A で は 14 行 目 で A レジ スタ に $2c00 を 設定 し て 、 フ ァ ン クシ ョ ン ・ 
コー ル を 実行 する と MS-DOS で は 各 レ ジス タ の 内 容 は 次 の よう に な り ま す 。 


CH CL 

DH DL 

D レジ スタ 1/100 秒 
上 位 8 ビッ ト 下位 8 ビット 


これ を 利用 し て 時 間 を 測定 する の で す が 、 ほ と ん ど 同 じ よ うに し て リス ト 2-1B の プ 
ログ ラム で は 11 、13 行 目 で 簡単 に 時 間 を 読み 出し て いま す 。 た だ し 、 リ スト 2-1B の 
ほう で は A レ ジス タ に ファ ンク ショ ンコ ー ル の 番号 で ある $2c00 の 設定 は 行っ て いま せ 
ん 。 それ は Dos ユニ ッ ト 中 の GetTime の 仕事 だ か ら で す 。 

MS-DOS の 仕様 と は 異な り 、PC-9801 シリ ー ズ で は 1/100 秒 は カレ ンダ 時 計 で サポ ー 
ト さ れ て いま せん 。 ど うし て も 、1 秒 以下 の 単位 で 測定 を し た いと き に は 第 3 章 の 割り 
込み を 利用 し て 、 イ ンタ バル ・ タ イマ を 使わ な けれ ば な り ま せん 。 

1/100 秒 が 計れ な く て も 、 あ る 計算 の 所 用 時 間 を 測定 し た けれ ば 、 そ の 計算 を 100 回 
繰り 返し て 測定 し 、 そ れ を 100 分 の 1 に すれ ば 実用 上 問題 な いで し ょ う 。 こ こ で は 変 
数 startsec に 開始 時 刻 、endsec に 終了 時 刻 を 秒 単 位 で 読み 取っ て 最後 に 引き 算 し て for 
ルー プ を 1000 回 繰り 返し た と き の 所 用 時 間 を 測定 し て いま す 。 

これ は まっ た く 簡 単 な 例題 で す が 、 こ の ファ ンク ショ ン ・ コ ー ル を 用 いる と 自分 で プ 
ログ ラム を 作る に は 少々 面倒 な ルー チン で も 、MS-DOS を 利用 し て いろ いろ 作れ そう 
で す 。MS-DOS の マニ ュ ア ル を 参考 に し て 、 か た っ ぱし か ら フ ァ ン クシ ョ ン ・ コ ー ル 
を 試し て みて くだ さい 。 


14 C 太 4P7PER 2 の DOS ユニ ッ ト 攻 略 法 


だ た だ し 、 デ ィ ス ク 入 出力 関係 の ファ ンク ショ ン ・ コ ー ル を 試す と き に は 、 オ リ ジ ナ ル ・ 
ディ スク の バッ クア ッ プ を 作っ て か ら ト ライ し な いと 、 大 変 な こと に な りか ね な い の で 
注意 が 必要 で す 。 そ れ さ え 気 を つけ れ ば 、 フ ァ ン クシ ョ ン ・ コ ー ル で パソ コン は 壊れ た 
り し ませ ん か ら 、 自 由 に 操作 し て か まい ませ ん 。 


こっ て お き の ノ ウ ハ ウ 
2ー2 ョ コマ ンド パラメータ の 引き 渡し 

次 に TURBO Pascal で 作っ た プロ グラ ム に MS-DOS 上 か ら パ ラメ ー タ を 引き 渡す 
テク ニッ ク を 練習 し て み ま し ょ う 。 むろん 、 プ ログ ラム の 中 に ReadLn を 入れ て 、 デ ー 
タ を 読み 込む よう に し て も よい の で す が 、MS-DOS の コマ ンド らし い プ ログ ラム を 作 
る た め に は この コマ ンド ・ パ ラメ ー タ の 引き 渡し が 必要 に な り ま す 。 

ここ で は uses 宣言 な し で 使用 可能 な Standard ユニ ッ ト に 入っ て いる コマ ンド パラ 
メー タ の 引き 渡し を 利用 し ます 。 本 来 Standard ユニ ッ ト に は 、 主 に 標準 Pascal の 手続 
き や 関 数 が 入っ て いる の で す が 、 こ こ で 使用 する 手続 き は どちら か と いう と Dos ユニ ッ 
ト に ある べき も の な の で 、 あ えて 取り 上 げ て み ま し た 。 

本 題 に 入る 前 に (すでに わか っ て いる こと と は 思い ます が ) 、TURBO Pascal で プロ 
グラ ム 開 発 を し て 実際 に 走ら せる まで の 手順 を 考え を て み ま し ょ う 。 

プロ グラ ム 開 発 の や りか た は ひと に よっ て 違い ます が 、 細 か いと ころ は と に か く 大 き 
な 流れ と し て は だ れ で も 次 の よう に や っ て いる は ず で す 。 


(1)TURBO Pascal を 起動 する 
(2)Edit ウィ ンド ウ で プロ グラ ム を 作成 する 
(3) コン パイ ル し て 実行 する 


この (3) の 手順 の と ころ で 、 パ ソコ ン 上 で 実行 、 つ まり 走ら せる と き の 方 法 は 2 通り 
あり ます 。 コ ン パ イル 結果 を メモ リ ・ モ デル と する か EXE ファ イル ・ モ デル と する か 
で す 。 普通 な に も 指定 し て いな けれ ば 、 コ ン パ イル 結果 は メモ リ ・ モ デル と な り ま す 。 
メモ リ ・ モ デル で は 、 他 の プロ グラ ム を コン パイ ル し た り 、TURBO Pascal を 終了 す 
る と その プロ グラ ム の コン バイ ル 結 果 は 失わ れ て し まい ます 。 し た が っ て 、 メ モリ ・ モ 
デル は TURBO Pascal 内 の み だ け で 実行 可能 で 、MS-DOS か ら は 実行 きせ る こと は で 
きま せん 。 こ れ で は 、 便 利 な プログ ラム を 作っ て も 、TURBO Pascal を いち ぃ いち 起 動 
し な けれ ば 使え な いこ と に な り 、 と て も 不便 で 困り ます 。 

そこ で 、TURBO Pascal で コン パイ ル す る と き に Compile( コ ン パ イル ) メニ ュー を 
選択 し 、Destination を 選択 し て リタ ー ン キー を 押す と 、Memory と Disk に 切り 替 わ 
り ま す 。 こ こ で Disk と すれ ば 今 作 っ た プロ グラ ム と 名 前 が 同じ で 、 拡 張子 が EXE の 
EXE ファ イル ・ モ デル を 作り ます 。 こ うす る と 、 た と えば 8AMPEE.PAS と いう プロ 
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グラ ム の コン パイ ル 結 果 と し て 、SAMPLE.EXE と いう コマ ンド ・ フ ァイル が ディ スク 
上 に 残り ます 。 

EXE ファ イル ・ モ デル は MS-DOS か ら 直 接 実行 可能 で す 。 実 は それ を (MS-DOS か 
ら 直 接 実行 で きる ファ イル を ) コマ ンド と 呼ん で いる の で す 。 こ の MS-DOS の コマ ン 
ド と し て は dir と か copy な ど が お な じみ の も の で すね 。 

MD-DOS の コマ ンド に は 内 部 コマ ンド と 外部 コマ ンド の 2 種類 が あり ます 。 内 部 コ 
マン ド と は 早い 話 が dir で 画面 表示 され な い コ マン ド で す 。 一 方 、 外 部 コマ ンド と は 
format の よう に dir で 名 称 が 見 る こと の で きる コマ ンド で す 。TURBO Pascal の プロ 
グラ ム を コン パイ ル し て ディ スク 上 に 作っ た 実行 可能 モジ ュー ル は この 外部 コマ ンド と 
な り ま す 。 し た が っ て 、SAMPLE.EXE は 外部 コマ ンド と いう こと に な り ま す 。 

さて 、 コ マン ド は MS-DOS モー ド で の み 実 行 で きま すか ら 、 デ ィ ス ク 上 に 作ら れ た 
SAMPLE.EXE を 走ら せる に は TURBO Pascal の IDE の File メニ ュー の OS shell で 
MS-DOS の モー ド に する か 、TURBO Pascal を いっ た ん 終了 し て MS-DOS に 戻ら な 
いと 実行 で きま せん 。 上 の 例 な ら ば 、OS shell を 選択 し た か 、TURBO Pascal を 終了 
させ た 状態 で ディ スプ レイ に A> が 表示 され 、 な お か つ SAMPLE.EXE が A ド ライ ブ 
上 に 存在 し て いる の な ら 、 


A>SAMPLE 


と 入力 し て リタ ー ン キー を 押せ ば 確か に MS-DOS 上 で SAMPLE が 実行 され ます 。 
ここ まで は すでに TURBO Pascal で プロ グラ ム 経 験 を 重ね た ひと に は お な じみ の 話 
で す 。 実 は コマ ンド ・ パ ラメ ー タ の 話 は ここ か ら で す 。 た だ MS-DOS 上 で プロ グラ ム 
が 動い た と 喜ぶ ひと は いま せん 。 そ れ を も う ひ と ひね り し て みよ うと いう わけ で す 。 
いま 、 こ の SAMPLE と いう プロ グラ ム が な に か ファ イル 名 を 読み 込ん で 、 そ の ファ 
イル に な ん ら か の 処理 を 加え る 機能 を 持っ て いる と し ます 。 そ の ファ イル と し て FILE1 
ー 10 まで 10 本 ある と し た ら ど うし ます か 。 

普通 の 作り 方 で SAMPLE と いう プロ グラ ム を 作る と 、 プ ログ ラム の どこ か で 処理 す 
べき ファ イル の 名 前 を 入力 させ る よう に する で し ょ う 。 こ うし て 作ら れ た EXE ファ イ 
ル を 走ら せる に は 、A>SAMPLE と し て 実行 し 、 処 理 す べき ファ イル 名 の 入力 が 要求 
され た と ころ で FILE1 と 入力 し ます 。 処理 が 終る と 再び A> が 表示 され ます か ら 、 ま 
た SAMPLE と 入力 し 、 し ば らく し て か ら 今 度 は FILE2 と 入力 し ます 。 し か し 、 こ ん 
な 調子 で 10 回 同じ こと を や ら さ れる の で は か な いま せん 。 そ れ で も 妨 耐 力 の ある 人 な 
ら な ん と か で きる で し ょ う が 、20 本 、30 本 と な っ た ら ど うし ます か 。 

考え られ る 手 は 処理 すべ き フ ァイル 名 の すべ て を プロ グラ ム の 最初 の ほう で あら か じ 
め 入 力 さ せる こと で し ょ う 。 そ し て 、 た と えば ファ イル 名 に 使い そう も な い ぃ 記号 、 た と 
えば @ と か # を 最後 に 置い て や れ ば 不 特定 の 本 数 の ファ イル 名 を 入力 させ る こと が で き 
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ます 。 し か し 、 も し その プロ グラ ム を MS-DOS の 外部 コマ ンド と し て 使用 する の だ と 
ずる と され で は ば 多 部 ゴマ シド と いみ より は こ ゅ わ ゆ る 天 デ リク ニシ ジョン ウド 必 エ 
ア の よう に な っ て し まい ます 。 い 

そこ で 、MS-DOS の バッ チ フ ァイル を 使っ て な ん と か 自動 的 に FILE12 、3 、.… の 処 
理 を や ら せ た いと ころ で す が 、 毎 回 処理 すべ き フ ァイル 名 が 違う の で は お 手 上 げ で す 。 
バッ チ の 手順 と し て キー ボー ド 操 作 を その まま に 、 


SAMPLE 
FILE1 
SAMPLE 
FILE2 


と で きれ ば よい の で す が 、 そ う は いき ませ ん 。 SAMPLE と いう EXE ファ イル が 読み 込 
むべ き パ ラメ ー タ を バッ チ フ ァイル に 記入 し て お いて も 、 バ ッ チ ファ イル は MS-DOS の 
コマ ンド を 並べ る べき も の で すか ら 、 キ ー 入 力 の 手順 を 並べ て も だ め な の は 当然 で す 。 

し か し 、 処 理 す べき ファ イル 名 を SAMPLE に 対す る 入力 で は な く 、MS-DOS の コ 
マン ド に 対す る コマ ンド ・ パ ラメ ー タ と し て 引き 渡せ れ ば 、 次 の よう な バッ チ フ ァイル 
を 作り 実行 きせ る こと が で きそう で す 。 


SAMPLE FILE1 
SAMPLE FI1LE2 
SAMPLE FITLE3 


これ が で きれ ば パソ コン に 汗 を か か せ て (?) 、 あ な た は 涼し い 顔 で や っ くり コー ヒー 
を 飲み な が ら 処 理 の 終了 を 待つ こと が で きま す 。 

余談 で す が 、 バ ッ チ ファ イル 程度 の 簡単 な ファ イル を 作る に は な に も エディ タ を 使っ 
た り 、 ま し て エディ タ の 化石 と まで いわ れ て いる MS-DOS 付属 の EDLIN を 起動 する 
まで も あり ませ ん 。 も し 、 こ の バッ チ フ ァイル の ファ イル 名 が SHORI.BAT で あれ ば 、 


A>COPY CON SHORI.BAT 


と し て か ら 必 要 な 内 容 を 入力 し 、 最 後に ^Z+ を 入力 すれ ば 簡単 に 作れ ます 。 こ の 方 法 は 
CONEIG.SYS を 書き 換え る と き に も 便利 で すか ら 覚 えて お く と よい で し ょ う 。 

さて 、MS-DOS に は コマ ンド ・ パ ラメ ー タ 用 に 最高 128 文字 の 長き さき の バッ ファ 領域 
が 確保 ミ きれ て いま す 。 そ の 場所 は 絶対 番地 の cseg : $0080 で す 。cseg は コー ド セ グ メン 


+ コ ント ロー ル ・ キ ー と 乙 を 同時 に 押す こと を こう 表記 する こと が あり ます 。Otrl-Z と も 表わさ れ ま す 。 
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ト 、$0080 は 80 番地 を 表し ます 。 し か し 、TURBO Pascal で コマ ンド ・ パ ラメ ー タ を 
を 引き 渡す プロ グラ ム を 作る た め に は そん な こと は 知ら な く て も か まい ませ ん 。 ち ょ っ 
と パソ コン に 詳し いひ と が コー ド セ グ メン ト の どこ そこ に これ これ の 情報 が 入っ て いる 
な ど と いっ て いる の を 聞く と 、 す ご いな あな ど と 思っ て いる の で は あり ませ ん か 。 こ ん 
な 知識 は TURBO Pascal の マニ ュ ア ル に いく ら で も 書い て ある よう な こと で すか ら 、 
感心 する こと は あり ませ ん 。 知識 を ひけ ら か す よ り も 、 ど う プ ログ ラム を 作る か が 一 番 
大 切な の で す 。 

さて 、 リ スト 2-2 を 見 て で くだ さい 。 と て も 短い プロ グラ ム で す が 、 こ れ で パラ メー タ 
引き 渡し は どう すれ ば よい の か よく わか る で し ょ う 。8、9 行 目 に 現れ る ParamCount 
は コマ ンド ライ ン で プロ グラ ム に 引き 渡さ れ た パラ メー タ の 個数 、ParamStr は 指定 さ 
れ た 個数 目 の パ ラメ ー タ を 返す 標準 関数 で す 。 


圏 リ スト 2-2 
: Program LTST2_2: 


: Var 
count : word: 


WriteLn(?Start Listing?) : 

for count := O to ParamCount do 
WriteLn(?No) ,count:1,? 〉,ParamStr(count) ) : 
WriteLn(〉End Listing? ) : 


1 

2 

3 

4 

5: 

6: begin 
( 

8 

9 

0 

1: end. 


ab: list2-2 1234567899 BCDEfghi S.I.T 
Start Listing 

No.g b: 礼 IST2-2.E%E 

No.1 1234567899 


No.2 BBCDEfghi 
NO 
End List ing 


圏 図 2-1( 実 行 例 ) 


プロ グラ ム は と て も 筒 単 で すか ら リ スト 内 の 書き 込み を 見 れ ば 、 ど うな っ て いる か す 
ぐに 理解 で きる で し ょ う 。 図 2-1 は この プロ グラ ム を 走ら せ だ と き の 結 果 で す 。 コ マン 
ド ・ パ ラメ ー タ と し て 1234567890 、ABCDEfghij と SIT を 渡し て み ま し た 。 こ こ で 
注目 すべ きこ と は 大 文字 と 小文字 が 区 別 き され て いる こと で す 。 普通 、MS-DOS を 使用 
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し て いる と き に は 大 文字 も 小文字 も 区 別 な く 使 を る の で 、 つ い 忘 れ が ち で すか ら 気 を つ 
け ま し ょ う 。 コ マン ド ・ パ ラメ ー タ を 利用 し て プロ グラ ム に 文字 その も の 、 つ まり 文字 
列 を 引き 渡す と き に は この こと を 注意 し て お く 必 要 が あり ます 。 さ も な いと 、 原 因 不 明 
の バグ が 出 を 9 上 ま 刻 6 

その 対策 と し て は プロ グラ ム 内 部 で コマ ンド ・ パ ラメ ー タ を Upcase 関数 を 使っ て 、 
すべ て 大 文字 に 直し て か ら 受 け 取 れる よう に し て お く の が ノウ ハウ で す 。 い ずれ に し て 
も 、 こ の コマ ンド ・ パ ラメ ー タ の テク ニッ ク は 知っ て いる と 科 単 に 便利 な ゲロ グラ ム が 
作れ る こと が 多い の で 、 た い へ ん 利用 価値 が あり ます 。TURBO Pascal の バー ジョ ン 
6 以上 で は 標準 関数 が と て も 充実 し て いま す の で 、 今 まで MS-DOS の ファ ンク ショ ン 
コー ル を 使っ た り 、 あ る い は MS-DOS 特有 の パラ メー タ の 番地 を 参照 し た り し な いと 
実現 で き な か っ た 機能 を あな た の プロ グラ ム に 実現 する こと が で きる よう に な り ま し 
た 。「 こ ん な 機能 は どう や れ ば 実現 で きる の か な 」 と 思っ た ら 、TURBO Pascal マニ ュ 
アル の Dos ユニ ッ ト 関 係 の 関数 や 手続 き を 調べ て みて くだ さい 。 


Save the Earth 
2ー3m プ ログ ラム 内 か ら の リダイレクト 

プリ ンタ に 大 量 の 印刷 出力 を 行う け プ ログ ラム を 開発 し て いる と 、 テ スト の た びに 裏 を 
「 メ モ 用 紙 」 に し か 使え な い 失 敗 プ リン ト が 大 量 に 吐き 出さ れる ます 。 こ れ で は まっ た 
く 森林 資源 の ムダ 使い で 、 最 近 問 題 に な っ て いる 環境 破壊 に ぼく ら が 手 を 貸し て し まい 
か ね ませ ん 。 な に し ろ 、 最 近 の 紙 の 消費 量 の 爆発 的 増加 の 原因 は コン ピュ ー タ 出力 用 紙 
が その 原因 の ナン バー ワン な の で すか ら 。 

それ に 、 プ リン タ で し ょ っ ちゅ う 出 力 し て いた の で は 時 間 が か か っ て た まり ませ ん 。 
そこ で 、 必 要 の な いと き に は スク リー ン に 表示 する だ け で 、 印 刷 し た いと きだ け プ リン 
タ に 出力 で きる よう に すれ ば いい で し ょ う 。 こ の よう に 、 出 力 す る 装置 を ディ スプ レイ 
や プリ ンタ 、 さら に ディ スク へ と 変更 する こと を リダイレクト と 呼び ます 。 

MS-DOS に は この リダイレクト 機能 が 備わっ て いま す の で 、TURBO Pascal で EXE 
ファ イル を 作り 、MS-DOS の 管理 下 で 走ら せる の な ら 、 今 まで プリ ンタ に 出し て いた 
出力 を ディ スプ レイ に 表示 させ る こと が で きま す 。 た と えば 、 


A>SAMPLE > CON 


と すれ ば 出力 は コン ソー ル 、 つ まり ディ スプ レイ に 表示 で きま す 。 

一 見 、 こ れ で 不都合 は 何 ち な いよ う で す が 、 デ バッ グ 段 階 に ある プロ グラ ム だ と どう 
で し ょ うか 。 EXE ファ イル を 走ら せる た め に は いっ た ん TURBO Pascal を 終了 させ な 
けれ ば な り ま せん 。TURBO Pascal を 終了 し て か ら MS-DOS に 戻り 、EXE ファ イル 
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を 走ら せ て か ら ま た TURBO Pascal を 起動 し て は プロ グラ ム を 書き 換え て EXE ファ 
イル を 作り 、 ま た 同じ こと を する と いう の で は や っ て られ ませ ん 。 

も う ひ と つの 考え 方 は 、Write や WriteLn の パラ メー タ に デバ ッ グ が 済む まで CON 
を 使い 、 終 っ た と ころ で TURBO Pascal の エディ タ の 検索 機能 を 使っ て CON を PRN 
に 置き 換え る 方 法 で す 。 こ れ も 悪 く は あり ませ ん が 、 検 索 し て 置換 する と き に 、 置 き 換 
えて よい も の と 悪 いも の を いち いち 判断 し な けれ ば な り ま せん 。 長 時 間 デ バッ グ を 続け 
て 「 頭 が 封 く 」 な っ て くる と この 判断 も 誤り が ち に な り ま す 。 


ここ で 提案 する 方 法 は TURBO Pascal に 用 意 き れ て いる ファ イル 変数 に 対す る Assign 


手続 き を 利用 する も の で す 。 Assign の 標準 形式 は 、 次 の と お り で す 。 


Assign(f11 , st て) 


str と いう 文字 で 表 さ れる ファ イル 名 を 則 に 割り 当て る の が 、 こ の 手続 き の 働 き で す 。 


圏 リス ト 2-3 

1: program LTST2_3: 

2: uses CY も ? 

に 

4: Var 

5: Shuturyoku : Text: 

條 2 Souchi Da? 

7: 。 Line : String[40] : 

に か 

9: begin 
OM CLrScr: 
0 Wetse《: (出力 は (8) スク リー ン で すか が (P) プリ ンタ で すか ? )95 
手 結 る 

13: repeat 

14: readLn(souch1 ) : 

15: souchi := Upcase(souchi) : 

16: untiL souchi in [78!。7P?]: { s,p 以 外 は 再 入力 } 

人 

18: WriteLn : 

19: 
20 : 1f souchi=?S〉 
の オ 。 then Assign(shuturyoku , CON' ) (1 つの ジッ タール へ } 
22: eLse Assign(shuturyoku,'PRN〉 ) : {て プリ ンタ ー へ } 
と る 
24: Rewrite(shuturyoku) : を 映 胃 モデ ボド 6 間 テ プ 税 け 
25: 
26: ReadLn(Line) : { 出力 する 文字 を 読み 込む } 
1 

28: WriteLn(shuturyoku ,Line) で っ アサ ギン され だ 出力 先 べ で * } 


29: end. 
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リス ト 2-3 を 見 て くだ さい 。21 行 目 と 22 行 目 で shuturyokn と いう ファ イル に CON 
また は PRN と いう ファ イル 名 を 指定 し て いま す 。 つ まり 、21 行 目 で は shuturyoku と 
いう ファ イル は CON( コ ン ソ ー ル ) に な り ま すし 、22 行 目 で は PRN( プ リン タ ) に な り 
ます 。 こ の プロ グラ ム で は 14 行 目 で 入力 され た 文字 が S な ら ス クリ ー ン (Screen) に 、 
P な ら プ リン タ (Printer) に 26 行 目 で 入力 され た 文字 列 を 出力 し ます 。 


oO の 中 の OO は 


: Program LTST2_4: 


: Uses 


Let xs 才 ] 


・ Va 


Shuturyoku_fi1e , 
ShuturYoku_Souch1 : text: 


: begin 


TextLine : String[255] : 
fiLename : gtring[14] : 
Souchi : CA ) 
CLrscr: 


較 リ スト 2-4 


write(〉 出力 装置 は (8) スク リー ン で すか 、 ぅ , 


人 EP) グリ テグ で 夷 が 0 


repeat 
ReadLn(souchi ) : 
Souchi := upcase(souchi ) 


untiL souchi in [78) 2P?] : 

WriteLn : 

1f souchi=?S? 
then Assign(shuturyoku_souchi , CUN?) 
eLse Assign(shuturyoku_souchi , PRN〉) : 


Rewrite(shuturyoku_souch1 ) : 


Write(, ファ イル 名 を 入力 し て くだ さい 。 うう ): { 


ReadLn(fiLename) : 


Assign(shuturyoku_fi]e ,fiLename) : 
Reset(shuturyoku_fi]e) : 


whiLe not Eof(shuturyoku_file) do 
begin 
ReadLn(shuturyoku_f11e ,TextL1ne) : 
WriteLn(shuturyoku_souchi , TextL1ne) : 
end:tof whiLe+ 


: end.{tof program} 


3 


{ sp 以外 は 再 入力 } 


{ コン ツジ 中 ル 人 S 。 ル 
ょ ブッ リク みあ み ペ + 


t 志 間 モ 科 困 基 ネ ン サナ 


出力 する ファ イル 名 を 入力 } 


{ 出力 する ファ イル を オー プン } 


{ ファ イル か ら TextLine に 読む } 
{ TextLine か ら 出 力 装置 へ } 
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こん な 例 で は 実用 に ほど 遠い の で 、 こ の テク ニッ ク を 応用 し て テキ スト ファ イル の リ り 
スト を スク リー ン か プリ ンタ の どちら か 好き な ほう に 出力 させ る プロ グラ ム を 作っ て み 
に 2 

リス ト 2-4 を 見 て くだ さい 。29 行 目 まで は リス ト 2-3 と ほとん ど 同 じ で す 。31 行 目 
で 出力 する ファ イル 名 を 指定 し 、 フ ァイル が 終り に な る まで 1 行 ず つ 次 々 に スク リー ン 
また は プリ ンタ に 出力 し ます 。 フ ァイル 名 は 拡張 子 を 含め て 14 文字 以内 に し て いま す 。 
これ は 10 行 目 で の 指定 で そう な っ て いる だ け で すか ら 、 あ な た の 都合 で 簡単 に 変更 で 
きま す 。 

それ か ら 考 えて お か な けれ ば な ら な い の は 、 フ ァイル の 内 容 が 1 画面 分 以上 ある と き 
に スク リー ン へ 表示 する と 、 次 々 に 内 容 が 流れ る よう に 表示 され て し まっ て 内 容 が 読め 
な いと き の 対 策 で す 。 そ れ に は 適当 な 行 数 スク リー ン に 表示 し た と ころ で な に か キー 入 
力 が ある まで 次 の 表示 を 待機 状態 に させ れ ば よい で し ょ う 。 そこで 35 行 目 に 、 


0 


37 行 目 と 38 行 目 の 間 に 、 


if devices = 7s〉) then 
begin 
if ]>22 then 
begin 
repeat unti] KeyPressed: 
1 琶 0) 
end 
else 
2 


を 挿入 する と スク リー ン 表 示 は 何 か キー を 押下 する ご と に 、 次 々 と 1 画面 づつ 表示 する 
よう に な り ま す 。 や むろん 、j を integer で var 宣言 する の を 忘れ な いで くだ さい 。 


ト 、】 2 電 
ファ ンク ショ ン ・ コ ー ル の フル 活用 
2ー4m テ ディ レク トリ 表示 
ファ イル 処理 用 の アプ リケーション ・ プ ログ ラム の 中 で ファ イル の 一 覧 表 、 つ まり ディ 
レク トリ を 表示 し た いこ と が よく あり ます 。 MS-DOS の 中 か ら は dir と 入力 する こと に 
相当 し ます が 、TURBO Pascal で は Dos ユニ ッ ト に 用 意 き され て いる 手続 き FindFirst 
と FindNext を 組み 合わ せる こと と な り ま す 。 


22 C 月 4P7P 表 2.、 DOS85 ユ ニッ ト 攻 略 法 


ここ で は TURBO Pascal の ファ ンク ショ ン ・ コ ー ル の 使用 例 と し て 、 あ えて これ ら 
の 手続 き を 使用 せ ず に 作っ た 例 を 紹介 し ます 。FindFirst と FindNext に より あっ さり 
同じ 機能 が どう 実現 で きる の か も 示し まし ょ う 。 

それ で は まず ファ ンク ショ ン ・ コ ー ル か ら で す 。 フ ァ ン クシ ョ ン ・ コ ー ル に つい て は 
いろ いろ 参考 書 が あり ます が 、 や は り ど うし て も MS-DOS の マニ ュ ア ル を か た わら に 
お いて 調べ な が ら で な いと 無理 で し ょ う 。 そ れ に し て も 、 や れ デ ー タ セグ メン ト だ の オ 
フッ ト だ の と 、 パ ソコ ン の 内 部 的 な こと を 知ら な いと 苦労 きせ ちら れ ま す 。 け れ ど も 、 
ここ で 解説 する 最初 の 例題 が よく わか ら な いか ら と 絶望 する 必要 は あり ませ ん 。 解説 
を ざっ と 読ん で 「 そ ん な も の か な 」 と いう 程度 の 理解 で 十分 で す 。 い ずれ プロ グラ ム を 
作っ て 、 あ れこ れ 実 験 し て いる うち に わか る よう に な り ま す 。 

前 置き は この ぐら い に し て 、 本 題 の ファ ンク ショ ンコ ー ル の 例題 を や っ て み ま し ょ う 。 
リス ト 2-5 を 見 て くだ さい 。 


圏 リス ト 2-5 
1: program LTST2_5: 
の 
3: Uses 
4: 97 
ぉ : Dos: 
@ 
7: type 
8: Str12 = string[12] : 
9: 
10: var 
本 fiLe_shitei , 
12 : fiLe_mituke : Str12: 
上 m1tuke : booLean : 
14 : 


15 : * 玉 玉 米 * 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 米 玉 米 玉 玉 玉 玉 玉 玉 玉 米 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 来 玉 来 


17: Procedure DTA_Address(VAR DTA_Segment , 
18: DTA_Offset : integer) 


19: 

20: var 

2 : dos_reg : RegisterSs : 
22: 

23: begin 

24 : with dos_reg do 

25: begin 

26 : ax := $2F shL 8: 
27 : Msdos(dos_reg) 

28 : DTA_Segment := es: 
29 : DTA_Uffset := bx: 
30 : end : 

31: end: 
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32・ 
に だ 
34 : 
> 
36 : 
に ぎす 
38: 
39: 
40: 
41: 
42: 
43: 
44 : 
45: 
46: 
47 : 
48: 
49: 
50: 
51 : 
52 : 
59: 
54 : 
55: 
56 : 
57< 
に に か 
59: 
60: 
に 2 
62 : 
63: 
64: 
65: 
66: 
の 2 
68: 
69: 
70: 
jp 1 
0 
7 き * 
74: 
75: 
7 
4 
日 
79: 
80: 


玉 玉 玉 玉 玉 玉 玉 来 玉 玉 米 玉 玉 玉 玉 玉 玉 玉 玉 玉 米 玉 玉 玉 米 玉 玉 玉 玉 米 米 米 玉 玉 玉 玉 玉 米 米 玉 玉 玉 玉 玉 玉 玉 米 米 来 玉 玉 来 十 


Function DTA_FiLename  : Str12: 
Var 
DTA_Segment , 
DTA_Uffset, 
ュ : 1nteger : 
DTA_char char : 
fiLename トゥ ュ ッ マギ 介 
begin 
DTA_Address(DTA_Segment,DTA_Uffset) : 
fiLename := リ ): 
ま :=30: 
DTA_char :=chr(mem[DTA_Segment:DTA_Uffset+ ュ ] ) : 
whiLe DTA_char <> chr(0) do 
begin 
fiLename := Concat(fiLename ,DTA_char) : 
て 
DTA_char := Chr(mem[DTA_Segment:DTA_Uffset+ ュ ] ) : 
end : 
DTA_FiLename := fiLename : 
end : 


夫 玉 玉 玉 米 玉 玉 来 玉 米 玉 玉 玉 玉 玉 米 玉 玉 玉 玉 米 玉 米 米 玉 玉 玉 玉 玉 米 米 玉 玉 玉 米 玉 米 玉 来 玉 玉 玉 米 米 玉 来 玉 玉 玉 士 


Procedure First_FiLe( path_addr : Str12: 
var fiLename : Str12: 
var mituke  : booLean) : 

Var 

dos_reg 4 Reg1sterS: 
fLg 4 bytej 
begin 
path_addr := Concat(path_addr , chr(0) ) : 
with dos_reg do 
begin 
ax := $4E shL 8: 
ds := (Seg(path_addr) ) : 
dx := (Ofs(path_addr)+1) : 
end : 
Msdos(Dos .Registers(dos_reg) ) : 
fiLename  := ーー ”): 
fLg := dos_reg.fLags AND 1: 
if fLg = O then begin 
mituke := TRUE: 


23 


24 


81 : 
82 : 
83: 
84 : 
85 : 
86 : 
87: 
88: 
89: 
90 : 
91 : 
92 : 
93: 
94 : 
95: 
96 : 
に 人 
98: 
99: 
100: 
101 : 
102 : 
103: 
104: 
105: 
106: 
107 : 
108: 
109: 
中 
人 
ドア 
Kb 
114 : 
は 
人 
7 
118: 
119: 
2 
吉 連 まる 
の 伯 
2 
124 : 
125 : 
126 : 
5 が 
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fiLename := DTA_FiLename : 
end 

eLse mituke := FALSE: 
end : 


玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 来 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 来 玉 玉 来 玉 来 玉 上 


Procedure Dir_Next( path_addr : Str12: 
Yar fiLename : Str12: 
var mituke : booLean) : 

Var 

dos_reg 5 Reg1sters: 
fLg * byte: 
begin 
path_addr := Concat(path_addr ,chr(O) ) : 
with dos_reg do 
begin 
ax := $4F shL 8: 
ds := (Seg(path_addr) ) : 
dx := (Ofs(path_addr)+1) : 
end : 
Msdos(Dos .Registers(dos_reg) ) 
fiLename  := ー ?!: 
fLg := dos_reg.fLags AND 1: 
if fLg = 0 then begin 
mituke := TRUE: 
fiLename := DTA_FiLename : 
end 
eLse mituke := FALSE: 


end : 
* 玉 玉 玉 玉 玉 玉 玉 玉 米 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 米 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 来 来 玉 玉 玉 来 来 玉 玉 来 来 玉 


begin 
CLrScr: 
fiLe_shite1  :=  〉*.* ネ フェ 
First_FiLe(fiLe_shitei ,fiLe_mituke,mituke) : 
1f mituke then begin 
Write(fiLe_m1tuke :20) : 
repeat 
Dir_Next(fiLe_shitei ,fiLe_m1tulke ,m1tuke) : 
1f mituke then Write(fiLe_mituke :20) : 
unti1. NOUT mituke: 
end : 
end. { Main } 


2-4.。 ファ ンク ショ ン ・ コ ー ル の フル 活用 25 


この リス ト は 指定 ファ イル の ディ レク トリ を 表示 させ ます 。5 行 目 で Dos ユニ ッ ト の 
使用 を 定義 し て いま すか ら 、 す で に 2-1 節 で 説明 し た よう に ファ ンク ショ ン ・ コ ー ル を 
使用 する 前 の レジ スタ は この 中 で 定義 済み に な っ て いま す 。 プ ログ ラム 中 で 使用 きれ て 
いる dosreg と いう レジ スタ を 表す 変数 の 型 で ある Registers に な っ て いま す 。 

ここ で 使う ファ ンク ショ ン ・ コ ー ル は $2FE 、4E 、4F の 3 つ で す 。 ま ず $2E が 手続 
き DTD_Address で 使用 きれ て いま す 。 こ の 手続 き は DTA_Segment と DTA_OfSet に 
DTA の セグ メン ト と オフ セッ ト を 返す も の で す 。DTA(Data Transfer Area 、 デ ー タ ・ 
トラ ンス ファ ・ エ リア 、 デ ー タ 転送 アド レス ) は ファ イル と 入出 力 す る と き の レ コー ド 
を し まっ て お く 場 所 な の で す 。MS-DOS は 直接 ファ イル に 対し て 入出 力 す る の で は な 
く 、 こ の DTA に 対し て 入出 力 し ます か ら 、 デ ィ レ クト リ を 取っ た と き に も まず ここ に 
ディ レク トリ が 入れ られ ます 。 そ れ を 後 で 取り 出す た め に まず DTA の アド レス が 必要 
に な り ま す 。 

まず 、21 行 目 で 例 の レジ スタ に 定義 し た 変数 と し て dos_reg を 宣言 し て いま す 。26 行 
目 は ax : 92FOO と し て も 同じ な の で す が 、$2F つま り $002F に し て お いて か ら 、 左 
に 8 ビッ トシ フト し て いる の で す 。shl と shr は 結構 応用 範囲 が 広い 演算 で すか ら 覚 え 
て お く と よい ぃ でしょ う 。 27 行 目 の フ ァ ン クシ ョ ン ・ コ ー ル に より es( エ クス トラ セグ 
メン ト ) に は DTA の セグ メン ト ・ ア ドレ ス 、bx(B レジ スタ ) に は 同じ く オ フ セ ッ ト ・ 
アド レス が 格納 され ます 。 

次 に 関数 DTA_Filename は 8 行 目 で 定義 し た 12 文字 長 の 文字 と し て DTA か ら フ ァ 
イル 名 を 手 に 入れ て きま す 。 4346 行 目 は 、 フ ァイル 名 を 入れ る 変数 氏 ename を クリ ア す 
る た め に 必要 で す 。47 行 目 は ファ イル 名 が DTA の 30 個 目 の メモ リ に 入っ て いる こと 
を 示し ます 。DTA の 構造 は MS-DOS の マニ ュ ア ル か ら 探 し まし た 。49 行 目 か ら 54 行 
目 で ファ イル 名 を 1 文字 ずつ 拾っ て は 旬 ename に Concat 手続 き を 使っ て つない で いま 
す 。 こ うし て 55 行 目 で ファ イル 名 が 関数 と し て 得 ら れ ま す 。 

60 行 目 の 手続 き First_File で は 引数 path_addr に 一 致す る ファ イル 名 旬 ename を 返し 
ます 。 論理 変数 mituke は 一 致す る ファ イル 名 が あれ ば TRUE と な り 、 な けれ ば FALSE 
に な り ま す 。 

69 行 目 で path_addr に chr(0) を 結合 し て いる の は 文字 列 と し て の Path_addr を ASCIZ 
形式 に する た めで す 。MS-DOS で は ASOII 文字 列 に 00H を 付け 加え た も の を ASOIZ 
文字 列 と 呼び ます 。MS-DOS は 文字 列 の 長き を どこ か に 持っ て いる よう な こと は し ま 
せん 。 そ の 代わ り に 、00H が 付け られ て いる と 、 そ こ で その 文字 列 が 終っ て いる と 誰 識 
する の で す 。 で すか ら 、MS-DOS は ある 文字 列 の 長き を 知る た め に は 00OH に 当たる ま 
で 文字 を 次 々 に 読み 出さ な けれ ば な り ま せん 。 な お 、TURBO Pascal で は 文字 列 の 先 
頭 の 1 バイ ト に その 文字 列 の 長 さ が 入っ て いま す 。 

さて 、70- 76 行 ま で の ファ ンク ショ ン ・ コ ー ル で 何 が 手 に 入る の で し ょ うか 。 こ の 
ファ ンク ショ ン ・ コ ー ル は 一 致す る ファ イル を 検索 し ます 。 ま ず 、AH つま り AX(A レ 
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ジス タ ) の 上 位 8 バイ ト に $4E を セ モット し ます 。DS と DX に は これ か ら 検 索 し よう と 
する ファ イル 名 の 入っ て いる アド レス の セグ メン ト と オフ セッ ト を それ ぞ れ セッ ト し ま 
す 。78 行 目 は エラ ー な し で ファ ンク ショ ン ・ コ ー ル か ら 戻 っ て きた か どう か を バイ ト 型 
の 変数 Hg に 入れ て いま す 。Hlag の 第 1 ビッ ト 目 は キャ リー・ フ ラッ グ で 、 こ れ が セッ 
ト き され て いる と エラ ー が ある 、 つ まり 検索 し よう と し た ファ イル 名 が な いと いう こと に 
放 まあ 。 

1 と AND を と っ て いま すか ら 、 これ が 0 に な れ ば セッ ト され て いな い の で Path_addr に 
一 致す る ファ イル が あっ た の で す 。 Hag の キャ リー が セッ ト さ れ て いれ ば 、 そ の ファ イル は 
ディ レク トリ に は な か っ た こと に な り ま す 。 見 つか っ た か どう か を 論理 変数 mituke に 格納 
し て お きま す 。 見 つか っ た と き に は 81 行 目 で 、 先 ほど 作っ て お いた 関数 、 DTA_Filename 
を 使っ て その ファ イル 名 を 手 に 入れ ます 。 

この Hirst_File で は 一 致す る ファ イル 名 の 先頭 の 1 個 し か 取り 出せ ませ ん 。 な びん ば . 
MS-DOS で dir *.* と し た と き で も 1 個 ど だ けし か 出 て こない こと に な り ま す 。 こ れ で は 
困る の で 外 に も 一 致す る ファ イル 名 が な いか どう か を 調べ る た め の 手 続き が 88 行 目 か 
ら 始 まる Dir_Next で す 。 

引数 や 97 行 目 の ASCIZ 文字 列 に 直す 操作 は 前 の First_File と 同じ で す 。 今度 は ファ 
ンク ショ ン ・ コ ー ル の $4F を 利用 し ます 。 こ の ファ ンク ショ ン ・ コ ー ル で は 次 に 一 致す 
る ファ イル 名 を 検索 し ます 。107 行 目 で キャ リー が セッ ト され て いる か どう か を 調べ て 
いま す 。 キ ャ リー が セッ ト さ れ て いな けれ ば mituke は TRUE と な り ま だ 一 致す る ファ 
イル 名 が あり 、 セ ッ ト され て いれ ば mituke は FALSE に な り も うこ れ 以 上 一 致す る ファ 
イル が な いこ と を 示し ます 。 

これ で や っ と 準備 が 整い まし た 。116 行 目 か ら が メイ ンプ ログ ラム で す 。 ち ゃ ん と 動 
作 す る か どう か 調べ る た め に 、118 行 目 で ワイ ルド カー ド 指 定 を 使っ て すべ て の ファ イ 
ル を 表示 させ る よう に し まし た 。 つ まり 、MS-DOS で dir *.* を 入力 し た と き と 同 じ に 
し て み ま す 。 First_File を 呼ん で mituke が TRUE で あれ ば 少な く と も ひと つ は ファ イ 
ル が あり ます か ら 、 ま ず そ れ を 表示 し ます 。 そ し て 122 126 行 目 で 繰り 返し 、 フ ァ イ 
ル が ある 限り 表示 を 続け ます 。 

図 222 は この プロ グラ ム を 動か し て みた と き の 結 果 例 で す 。 む ろ ん 、 こ の 例 の 表示 は 
あな た の ファ イル に 何 が 入っ て いる か に よっ て まっ た く 変 わっ て くる こと は いう まで も 
あり ませ ん 。 ま た 、 こ の 結果 を 見 て も ちっ と きれ い に 表 示し た ら ど うか と 思う で し ょ う 。 
ここ で は どう や っ て MS-DOS の ファ ンク ショ ン ・ コ ー ル を 使う の か 、 ま た MS_-DOS の 
内 部 デー タ は どう な っ て いる の か と か 、 レ ジス タ 関 係 は どう アク セス する の か な ど を 示 
すま で に し て あり ます 。 表示 に つい て は あな た の 好み に 作り 替え て みて も お も し ろ い で 
以 半 光 。 
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還 図 2-2( 実 行 例 ) 


レジ スタ を アク セス し て ファ ンク ショ ン ・ コ ー ル を 使用 する だ け で な く 、 特 定 の パソ 
コン の 機種 に 依存 する BIOS まで 使用 する こと も 可能 で す 。 し か し 、 そ こま で や っ て し 
まう と プロ グラ ム の 移植 性 が か な り 低 下 し て し まう の で 、 高 級 言語 を 使用 し た 意味 が な 
く な っ て し まい ます 。 パ ソコ ン の 内 部 的 な 機能 を 利用 する と し て も 、 せ い ぜ い ファ ンク 
ショ ン ・ コ ー ル まで に と ど め る の が 正しい プロ グラ マー で は な いで し ょ うか 。 

さて 、 今度 は 同じ こと を Dos ユニ ッ ト に 用 意 さ れ て いる 手続 き 、FindFirst と FindNext 
を 使用 し て 実現 し て み ま し ょ う 。 ま ず 、 手 続き FindFirst は どん な も の か 見 て お きま し ょ 
う 。 標 準 の 呼び 出し 形式 は 、 


「 FindFirst( パ ス : string : 属性 : word:var  s:SearchRec) , 
で す 。 こ こ で パス は *.* や *.pas の よう な ディ レク トリ マス ク で す 。 属 性 は ファ イル の 属 


性 を 表す パラ メー タ で 、Dos ユニ ッ ト 内 で 定義 済み の 次 の よう な 定数 で す 。 そ れ ぞ れ の 
属性 の 意味 を 定義 の 後ろ に 簡単 に 書い て お きま し た 。 


Con8 も 
ReadOn1y = $01:{ 読 み 出し 専用 } 
Hidden = $02:{ 隠 し ファ イル } 
SysFile = $04:1 シ ステ ム フ ァ イル } 
Vo1umeTD = $08:{ ボ リュ ー ム 名 }+ 
Directry = $10:1 デ ィ レ クト リ } 
Archive = $20:{ 通 常 の ファ イル + 
AnyFile = $3Fi{ 上 記す べ て の ファ イル } 


この 属性 は 定義 済み な の で すか ら 、uses に より Dos ユニ ッ ト の 使用 を 宣言 し た 後に 
は この まま 使う こと が で きま す 。 ま た 、 フ ァイル の 属性 は 、 


SysF11e + Archive 


の よう に 、 組 み 合わ せ て 使用 する こと が で きま す 。 
3 番目 の 引数 s も Dos ユニ ッ ト 内 で 定義 され て いる レコ ー ド 型 、SearchRec の タイ プ 
の 変数 で す 。 定 義 の 形式 と その 簡単 な 内 容 を 次 に 示し て お きま す 。 
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type 
SearchRec = record 
Fi11 :array[1. .21] of byte:{MS-DOS 専用 デー タ で 使用 禁止 } 
attr:byte:T フ ァイル 属性 } 
Time :1ongint: 和 {圧縮 され た タイ ム ス タ ン プ } 
Size:1ongint:{ バ イト サイ ズ } 
Name : string [12] :1 フ ァイル 名 } 
end: 


Time は 4 バイト に 圧 縮 きれ た 日 付 と 時 刻 で すか ら 、 普 通 の 日 付 と 時 刻 に 変更 する に 
は や は り Dos ユニ ッ ト に 用 意 さ れ て いる UnpackTime 手続 き を 利用 し ます 。 呼 び 出し 
の 形式 は 、 


UnpackTime(Time : 1ongint: Yar DT:DateTime) : 


で す 。 こ こ で Time は 当然 SearchRec タイ プ の Time 項目 で す が 、DateTime は 次 の よ 
う な 定義 済み レコ ー ド 型 で す 。 各 項目 の 内 容 は 説明 する まで も な いで し ょ う 。 
DateTime = record 


Year , Month ,Day ,Hour ,Min ,Sec:word 
end : 


以上 の 定義 済み の 定数 と 変数 を 使用 し て 、 た と えば シス テム ファ イル と 保存 ファ イル 
の すべ て を 指定 し て 探す の な ら 、 次 の よう に すれ ば よい の で す 。 


FindFirst(〉*.*) SysF11e+Archive ,SearchedData) : 


し か し 、 こ の FindFirst だ け で は 指定 に 該当 する 最初 の ファ イル が 得 ら れる だ け で す 。 
次 々 と 該当 ファ イル を 探す た め に は 手続 き FindNext が 必要 で す 。 手 続き の 定義 は 、 


FindNext(var s:SearchRec) 


で す 。 引 数 の s は FindFirst の s と 同じ 名 前 で な けれ ば な り ま せん 。 し た が っ て 、 次 の 
よう に 呼び 出せ ば 、EindFirst で 探さ れ た ファ イル の 次 の 該当 ファ イル 名 が レコ ー ド 型 
変数 の 項目 、Name に 返さ れ ま す 。 


FindNext(SearchedData . Name) : 


それ で は 該当 ファ イル が 存在 し な いと き に は どう な る の で し ょ うか 。 そ の 場合 は Dos 
ユニ ッ ト で 定義 され て いる 整数 型 の 変数 DosError に 場合 に 応じ て 数 値 が 返さ れる の で 
それ を 監視 し て お け ば よい の で す 。 そ れ が 0 以外 の 値 に な っ た と き に は 何ら か の エラ ー 
が 生じ し た こと が わか り ま す 。DosError に 値 が 返さ れる の は ファ イル 関係 に 限り ませ ん 
が 、 た と えば ファ イル が 存在 し な けれ ば 2 、 パ ス が 存在 し な けれ ば 3 、 そ し て も う 該 当 
ファ イル が な けれ ば 18 に な り ま す 。18 に な る と き に は FindNext で 次 の ファ イル が 存 
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在 し な いと き に あたり ます 。 こ こま で の 予備 知識 が あれ ば 、 先 ほど の リス ト 2-5 と 同じ 
機能 を 実現 する プロ グラ ム が 科 単 に 作れ ます 。 リ スト 2-6 を 見 て くだ さい 。 


田 リ スト 2-6 


1: program LTST2_6: 

レ 

3: Uses 

4: Cr も 。 

5: Dos: 

6: 

7: type 

Sbr42 = string[12] : 

9: 

10: var 

it を fiLe_shitei : Str12: 
yy dirinfo : SearchRec: 
トド 0 

14 : 

15: begin 

っ CLrScr: 

を fiLe_shite1  :=  〉 玉 . ネ 2 ェ 

18: FindFirst(fiLe_shitei , AnyF11e ,d1rinfo) : 
19: whi1e DosError = O do 
2 begin 

人 21 と Write(dirinfo .name : 20) : 
の 2。 FindNext(dirinfo) : 

の end: 


24: end. { Main } 


しそ 


割り 込み 処理 


迷惑 か まわ すず 割り 込 も う 


市 販 の パソ コン ソフ ト を 見 て いる と 、 ど うし た ら こ ん な プロ グラ ム が 書け る の だ ろう 
と 不思議 な 気 が し ませ ん か 。 特に ひと つの 処理 を や りな が ら 、 あ る 特定 の 条件 が 起こ る 
と いま まで と は 違う 処理 に 移り 、 そ れ が 終る と また も と の 処理 に 復帰 する 割り 込み 処理 
な ど は 一 体 ど う や っ て プロ グラ ム す る の か 実に 不思議 で すね 。 こ ん な 複雑 な プロ グラ ム 
を 作る に は 、 き っ と アセ ンプ ブラ と か いう も の の 知識 が 相当 な いと 駄目 な の で は な いか と 
あき ら め て は いま せん か 。 ま た 、 あ る い は 最近 人 気 が 出 て きた 〇 言語 を 使わ な いと で 
き な い な ど と いう ひと まで いま す 。C 言語 は アセ モン プラ と の 相性 が よい の で 、 ソ フト ・ 
ハウ ス の プロ グラ マー に 愛用 きれ て いま す 。 そ こ で むず か し ぃ プロ グラ ム は . 〇 言語 で 
な いと 作れ な いな ど と いう 困っ た (誤っ た ) こと を 信じ て いる ひと が いる の で す 。 

その せい か 、TURBO Pascal は 「 素 人 向け 」 あ る は 「 教 育 専 門 」、C 言語 は 「 プ ロ 向 
け 」 と いう 誤っ た 認識 が 生ま れ て き て いま す 。 し か し 、TURBO Pascal が そん な 奥 の 
浅い も の で あっ た な ら 、 あ れ ほ ど 優 れ た ソフ ト が ひし めい て いる アメ リカ の パソ コン ・ 
ソフ ト 市 場 で ベス ト セ ラー に な る は ず が あり ませ ん 。Borland 社 の TURBO Pascal 設 
計 者 は その 点 に つい て も し っ か り 配 慮 し て くれ て いま す 。 

それ で は TURBO Pascal を 使っ て 、「 こ れ が で きれ ば プロ ・ プ ログ ラマ ー」 と いわ 
れる パソ コン ・ プ ログ ラミ ング 中 の 難 物 で ある 割り 込み 処理 に チャ レン ジ し て み ま し ょ 
う 。 ア セン ブラ の 解説 書 は 特に 必要 あり ませ ん が 、 深 いと ころ まで 理解 し た い 読 者 に 
は 、 き っ と 参考 に な る アイ デア が そら れる で し ょ う 。 

この 章 で は まず 始め に 「 で き あ い の 」 割り込み 処理 で ある Intr 手続 き の 使用 法 を ト 
レー ニン グ し ます 。 こ れ は すでに 第 2 章 の MS-DOS コネ クシ ョ ン の と ころ で ちょ っ と ふ 
れ ま し た 。 そ れ を も う 少 し 先 に 進め て PC-9801 シリ ー ズ の パソ コン の 持っ て ぃ る ROM 
内 ルー チン の 活用 に 使っ て み ま す 。 そ の 次 に 、 ベ クタ テー ブル を 利用 し た 本 格 的 な 割り 
込み 処理 を TURBO Pascal で プロ グラ ミン グ し ます 。 こ れ が 理解 で きる よう に な る と 
TURBO Pascal で どん な プロ グラ ム も 作れ る と いう 自信 が 出 て くる と 思い ます 。 

割り 込み 処理 が マス ター で きる と 、 あ る 一 定 の 時 間 間 隔 で デー タ を 計測 し た り 、 複 
数 の 処理 を 同時 に こなし た り と か な り 高 度 な プロ グラ ム が 書け る よう に な り ま す 。 や っ 
と TURBO Pascal の MS-DOS 応用 を 終わ っ た ば か りな の で 、 こ の 章 は 少々 ハー ド で 
す が 、 ぜ ひ が ん ば っ て チャ レン ジ し て くだ さい 。 
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あな た まかせ の 割り 込み 
3 一 mlntr 手続 き 


PC-9801 は CPU に 8086 系 の チッ プ を 使っ て いま す が 、 こ の CPU に は ソフ トウ ェ 
ア 割 り 込 み (イン テラ プ ト ) 用 の 命令 と し て INTR が 用 意 き され て いま す 。PC-9801 は モ 
デル に よっ て OPU が 異な り ま す が 、 す べ て 8086 系 統 の チッ プ で すか ら 、 以 下 の 話 で 
は すべ て 16 ビッ ト CPU で ある 8086 に つい て 説明 し ます 。 

この 割り 込み 命令 は TURBO Pascal の Intr 手続 き で 使用 する こと が で きま す 。 と こ 
ろ が 、TURBO Pascal の マニ ュ ア ル で は 割り 込み と は な ん な の か が わか っ て いる ひと 
を 対象 と し て いる せい か 、Intr の 説明 は 実に あっ さり と し て いる の で 、 不 慣れ な ひと に 
は 割り 込み と は 実際 に どう 使え を る も の な の か 理解 する こと は まず で き な い で し ょ う 。 

マニ ュ ア ル の Intr 手続 き の 説 明 を 読ん で みて も 、 そ の 定義 と 呼び 出し 法 が 書い て あ 
る だ け で す 。 考え て みれ ば マニ ュ ア ル と は 規則 書 な の で すか ら 、 ど うし て も 応用 例 に 限 
り が ある の は し か た が な さそ う で す 。 そ こ で 、 こ こ で は まず 割り 込み の 基礎 の トレ ー ニ 
ング か ら 始 め 、 後 に 行く に し た が っ て 複雑 な プロ グラ ム に チャ レン ジ し ます 。 

さて 、8086 で は ソフ トウ ェ ア 割 り 込 み 用 に 物理 アド レス の 00000H 番地 か ら 003FFH 
番地 まで の 1K バイ ト に 、4 バイ ト ず つ 00H 、01H 、02H 、.…. FEH と 256 個 の 割り 込 
み 参照 アド レス が 書い て あり ます 。 こ の 4 バイ ト は オフ セッ ト 2 バイト と セグ メン ト 2 
バイ ト か ら な り ま す 。 た と えば 、Imtr 手続 き で 40 番 (16 進 ) の 割り 込み を 実行 する と 、 
40HX4 三 100H か ら 4 バ イト で 表 さ れ た アド レス に ある プロ グラ ム が 実行 きれ る こと 
に な り ま す 。 こ の アド レス 表 の こと を 割り 込み ベク タテ ー ブ ル と いい ます が 、 こ の 表 が 
どう な っ て いる の か 、 ま た それ を どう 使う の か に つい て は 3-2 節 で 説明 し ます 。 

ここ で は Intr 手続 き に よる 割り 込み の 18 番 と 21 番 の 使い 方 を トレ ー ニ ング し ます 。 
18 番 と いっ て も 正確 に は 16 進 表記 で 18H 番 で すか ら 、TURBO Pascal で は $18 番 に 
な り ま す 。 これが PC-9801 の ROM 内 ルー チン で ある BIOS を 動か す 割 り 込み で す 。 
それ に 対し て 、21 番 、 つ まり $21 番 の 割り 込み は すでに 第 1 章 で MS-DOS の ファ ンク 
の 2 も SPEC960 E( 碗 叶 じ だ 2 

$18 と $21 番 の 割り 込み は 共通 する 部 分 が か な りあ り ま す 。 そ の 理由 は MS-DOS 上 で 
も ROM の BIOS と 同じ 参照 アド レス を 用 いて いる か ら で す 。 言い 換え れ ば 、MS-DOS 
独自 の 割り 込み で な けれ ば BIOS を 用 いる 、 つ まり BIOS ユール で も 同じ こと が で きる 
と いえ ます 。 さ ら に 、MS-DOS の ファ ンク ショ ン ・ コ ー ル に 用 意 き れ て いな い ROM 内 
の BIOS 独自 の 機能 で も BIOS コー ル を 利用 すれ ば 実現 可能 と いう こと で す 。 し か し 、 
BIOS コー ル を 多用 する と 異な る 機種 の パソ コン に TURBO Pascal で 書い た プロ グラ 
ム を 移植 する と き に 苦労 する こと に な る の で 、 そ の 点 は よく 考え て 使う べき で す 。 つ ま 
り 、 ど うし て も BIOS を 使わ な いと 実現 で き な い 機能 だ け に 限定 し て 使用 する の が 正 し 
い 用 法 で す 。 
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あな た が 持っ て いる パソ コン が PC-9801 で 、 そ の パソ コン 上 で し か な 動作 さき せな い プ 
ログ ラム を 開発 する の な ら BIOS を どん どん 使っ て も か まい ませ ん 。 し か し 、 こ の エキ 
スパ ー ト ・ マ ニュ アル で 中 級 ク ラス の プロ グラ マー を めざす の な ら 、 で きる だ け 移 植 性 
に も 配 虐 を し た プロ グラ ム 開 発 を する よう 心がけ て くだ さい 。 

さて 、 リ スト 3-1 を 見 て くだ さい 。 こ の プロ グラ ム で は BIOS コー ル に より プ ブザー を 
鳴動 きせ ます 。 と いっ て も それ ほど 大 げ さ で は な く 、 た だ ビー と 鳴ら し 、 ま た それ を 止 
め る BEEP 処理 と キー 入力 を BIOS コー ル で 行い 、 キ ー 入 力 の 画面 表示 を MS-DOS の 
ファ ンク ショ ン ・ コ ー ル を 用 いて 行い ます 。 ブ ザー 鳴動 は MS-DOS で も 、 エ スケ ー プ ・ 
シー ケン ス と 呼ば れる 特定 の 文字 列 (07H) を 画面 に 送る こと に よっ て も 実現 可能 で す 。 
し か し 、 こ こ で は 練習 の た め に あえ て や っ て み ま し た 。 


圏 リス ト 3-1 
program LTST3_1: 


Uses 
Crt, 
Dos: 


0 の の 品 心 の 〇 DD ビ 


Var 
に reg  :RegisterS : 


11: begin 
By C1rSCr: 


14: reg.ax := $1700: 
5 Tntr($18,reg) : 


17: WriteLn() どの キー で も 押せ ば 鳴動 スト ッ プ し ます 。 う ): 


19: reg.ax := $0000: 
20: Tntr($18,reg) : 


22: write(〉 押し た キー は : う ): 

23: reg.dx := reg.ax and $00ff: 
24 : reg.aXx := $0200: 

25 : Tntr($21 ,reg) : 


27: reg.ax := $1800: 
28: Tntr($18,reg) : 
29: end. 


プロ グラ ム の 9 行 目 は レジ スタ を アク セス する た め に Dos ユニット 内 に あら か じ め 
定義 され て いる タイ プ で ある Registers 型 と し て 変数 reg を 宣言 し て いる と ころ で す 。 
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も うわ か っ て いる こと と 思い ます が 、 こ れ を 必ず 行っ て くだ さい 。 こ れ に より reg で パ 
ソコ ン の 内 部 レジ スタ が アク セス で きる わけ で す 。 

BIOS コー ル と し て Imtr($18.reg) が 15 、20 、28 行 目 に 現れ ます が 、A レジ スタ を 
セッ ト す る だ け で ファ ンク ショ ン ・ コ ー ル と 同じ 形式 に な り ま す 。 プ ログ ラム の 内 容 を 
あ ょ っ と 見 で 天 き まろ お が 5 

12 行 目 の ClrScr は も うい うま で な く 5 行 目 で 使用 を 宣言 し て お いた Crt ユニ ッ ト の 
中 の 手続 き で 、 画 面 を クリ ア す る た め の も の で す 。14 行 目 で ブザー 鳴動 の た め の BIOS 
コー ル の 準備 と し て A レジ スタ に $17 を セッ ト し て いま す 。 

19 、20 行 目 で は 押下 され た キー 文字 を BIOS コー ル で 取得 し 、23 一 25 行 目 で それ 
を 表示 する MS-DOS ファ ンク ショ ン ・ コ ー ル を や っ て いま す 。 そ し て 最後 に 27 、8 行 
目 で 鳴動 を スト ッ プ する BIOS コー ル を や っ て 終わ り ま す 。 以 上 の 様子 は プロ グラ ム と 
実行 例 を 見 れ ば 簡単 に わか る は ず で す 。 


これ が で きれ ば ー 人 前 
3 一 2m 割 り 込 み ベ クタ の 書き 換え 

ベー シッ ク な トレ ー ニ ング は この くら い に し て 、 い よい よ 本 格 的 な 割り 込み 処理 を 
や っ て み ま し ょ う 。 こ こ で は 例題 と し て 、 ソ フト ウェ ア 割 り 込 み の ひ と つ で ある イン タ 
バル タイ マ の 割り 込み ベク タ を 書き 換え 、 画 面 右 隅 に 時 間 を 表示 させ る プロ グラ ム を 作 
り ま す 。 そ し て 、 こ の プロ グラ ム を MS-DOS 上 に 常駐 きせ 、 常 時 画面 に 時 刻 表 示 が 行 
ね る 届 の 低 他 ます 。 

ここ で 開発 する TURBO Pascal プロ グラ ム は か な り 高 級 な テク ニッ ク を 使い ます の 
で 、 が ん ば っ て 理解 する よう に し て くだ さい 。 こ れ が 乗り 切れ れ ば どん な プロ グラ ム で 
も 作れ る よう に な る と 思い ます 。 早く も 第 3 章 で 山場 が きた わけ で す が 、 し っ か り ト 
レー ニン グ し て くだ さい 。 こ の 節 で は まず 割り 込み ベク タ と 割り 込み テー ブル に つい て 
説明 し 、 さ ら に イン タバ ル タ イ マ に つい て も 簡単 に 説明 し て お きま す 。 


3-2-1m 割 り 込 み ベ クタ と 割り 込み テー ブル 

ある プロ グラ ム を 実行 中 に 、 ソ フト ウェ ア 割 り 込 み ま た は ハー ドウ ェ ア 割 り 込 み が 発 
生 し た 場合 、CPU は 現在 実行 し て いる プロ グラ ム を 中 断 し 、 割 り 込 み 処理 ルー チン に 
処理 を 移し ます 。 こ の と き に 、 割 り 込 み 処理 ルー チン が メモ リ 上 の どこ に ある か の ア 
ドレ ス 情 報 を CPU が 知ら な けれ ば な り ませ ん 。 こ の アド レス 情報 が 書か ん て いる の が 
割り 込み ベク タテ ー ブ ル 、 ま た は 簡単 に 割り 込み テー ブル と 呼ば れる メモ リ 内 の 領域 
深 ま 6 

CPU が 8086 系 、 つ まり PC-9801 の CPU な ら 、 割り 込み ベク タ は 割り 込み 処理 ルー 
チン の セグ メン ト ア デア ド レス (CS) と オフ セット アド レス (TIP) が ペア に な っ て いま す 。 こ 
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れ を 割り 込み の 0 番 で ある INT OH を 例 に と っ て 説明 し まし ょ う 。 古 は Hexadecimal( へ 
キサ デシ マル ) 、 つ まり 16 進数 で ある こと の 略号 で し た ね 。 

図 3-1(a) を 見 て くだ さい 。 INT OH の CS と IP が メモ リ 上 の 絶対 アド レス の 00000H 
番地 か ら 00003H 番地 まで の 4 バイ ト を 使っ て 書か れ て いま す 。 た と えば 、INT 0H の 
割り 込み 処理 ルー チン の アド レス が CS = 1234H 、IP = 5678H だ と し まし ょ う 。 こ の 
と き メ モリ 上 で は 図 3-1(b) の よう な 状態 で この アド レス 情報 が 書い て あり ます 。 こ の 
状態 で INT OH の 割り 込み が 発生 する と 、 こ の 割り 込み ベク タ の 内 容 が 参照 され 、 コ ー 
ド セ グ メン ト ・ ア ドレ ス が 1234H で オフ セッ ト ・ ア ドレ ス が 5678H の メモ リ か ら 始 ま 
る 割り 込み 処理 ルー チン へ 処理 が 移さ れ ま す 。 


1 バイ ト 
セグ メン ド ト ェ ボブ セット 


0000 : 0000 二 WW 坦 有 0000 : 0000 


IP 
0 Eo の 0001 
INOH の アド レス 
0002 0002 cs 


0003 0003 
っ 1 


(8) 


田 図 3-1 INTOH の 割り 込み ベク タ 例 

つま り 、CPU は この 割り 込み に より 、 今 まで 処理 し て いた プロ グラ ム の 実行 を 中 断 
し 、 こ ちら の 割り 込み 処理 ルー チン の 実行 を 開始 する の で す 。 こ こ で 重要 な の は 、 割 り 
込み が 発生 し た 場合 、 割 り 込 み ベ クタ 自体 に 処理 が 移さ れる の で は な く 、 割 り 込 み ベ ク 
タ に 書か れ て いる アド レス が 参照 され 、 そ の アド レス の と ころ に 処理 が 移さ れる と いう 
とく なら 

割り 込み ベク タ は ひと つの 割り 込み 処理 ルー チン の アド レス を 4 バイ ト で 表し て いる 
の は 前 に も 説明 し まし た 。 図 3-2 を 見 て くだ さい 。 

割り 込み の 種類 は 256 個 ま で 可能 で すか ら 、 全 部 で 4 xX 256 = 1024 バイ ト 分 の メ 
モリ が 割り 込み ベク タ に 必要 で す 。 こ れ を メモ リ の 絶対 アド レス の 00000H 番地 か ら 
5003FE 番地 まで を 使っ て INT OH か ら INT FFH まで の 割り 込み ベク タ を 順番 に 並べ 
て いま す 。 こ の 並び が 割り 込み 処理 が どこ で 行わ れる か の 参照 の た め の 種 の 表 (テー ブ 
ル ) に な る の で 、 割 り 込 み ベ クタ テー ブル と 呼ぶ わけ で す 。 

この 割り 込み ベク タ は RAM メモ リ に 書か ん て いま すか ら 、 必 要 に 応じ て 自由 に 書き 
改め る こと が で きま す 。 と は いえ 、 な ん で も か ん で も で た ら め に 書き 換え て は 意味 あり 
ませ ん 。MS-DOS を 起動 し た 時 点 で 、MS-DOS が 使用 する 割り 込み ベク タ は MS-DOS 
に より セッ ト (書き 込み ) され て いま すか ら 、 や た ら に 書き 換え る と 動作 が 保証 され な 
く な り ま す 。 そ こ で 、MS-DOS で は INT 40H 一 7FH を ユー ザー 用 と し て ユー ザー、 つ 
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まり 私 た ち が 自 由 に 割り 込み 処理 用 と し て 使え る よう 開放 し て いま す 。 こ こ を どう 書き 
換え て も MS-DOS の 動作 は 保証 され ま す 。 


0000 : 03FF 


INT FFH の アド レス 情報 
03FC 


0102 
0100 


| INT 40H の アド レス 情報 


| INT 1H の アド レス 情報 


0002 
0000 : 0000 


| INT 0H の アド レス 情報 


一 図 3-2 割り 込み ベク タテ ー プ ブル 

それ で は ここ まで の 知識 で 割り 込み 処理 プロ グラ ム を 作っ て み ま し ょ う 。 リ スト 3-2 
は 割り 込み が 発生 する と ブザー が 鳴る プロ グラ ム で す 。 同 じ 機 能 を 実現 する プロ グラ ム 
は すでに リス ト 3-1 で 紹介 し まし た が 、 比 較 す る た め に あえ て ベク タテ ー ブ ル を 書き 換 
えて 、 割 り 込 み 処理 ルー チン に 制御 を 移動 し て みる こと と し ます 。 こ こ で は 割り 込み が 
1 一 100 の 正 数 を 7 で 割り 、 余 り が 2 と な っ た と き に 発生 する よう に し まし た 。 適 当 な 
割り 込み 処理 ルー チン を 作り 、 ユ ー ザ ー 使 用 可能 な 割り 込み ベク タ INT 40H(00100H 
ー 00102H 番地 ) の ベク タ に 、 そ の 割り 込み 処理 ルー チン の アド レス を セッ ト し 、 割 り 
込み 処理 を させ ます 。 


圏 リス ト 3-2 
・ Program LTST3_2: 


1 

か 

3: Uses 

4: Crt。 
に Dos: 
6: 

7: const 

8 BELL=#$07 : 


bn regS ・Reg1sterS : 
23 originaL_40h  :pointer: 

1 すき: int_seg : WO エ d: 

14 : ュ int_ofs : WOTd: 
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5 : 
4 
7 5 
18: 
19: 
20 : 
は: 
22 : 
23: 
24 : 
2 
26 : 
PA 
28: 
29: 
301 
3 まく 
32: 
に た 折 
34 : 
35: 
36 : 
に 
に に 
39 : 
40: 
41: 
42 : 
43: 
44 : 
45: 
46 : 
47 : 
48 : 
49 : 
50: 
に 1 
D 絞 < 
53: 
54 : 
55: 
56 
57 : 
58: 
59: 
60: 
61 : 
2 
63: 
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ュ : WO エ d: 
玉 玉 来 玉 玉 来 来 来 玉 玉 玉 来 来 玉 玉 玉 玉 玉 来 玉 玉 米 玉 玉 来 玉 玉 米 玉 玉 玉 玉 玉 米 米 米 玉 玉 玉 玉 米 米 玉 玉 玉 来 玉 玉 米 十 


Procedure Tnterrupt5 : 
Tnterrupt: {割り 込み 処理 用 キー ワー ド } 


begin 

Write(BELL) : 

WriteLn(i:3,〉 割り 込み テス ト 中 う : 
Gend : 


和 玉 玉 玉 玉 玉 来 来 玉 玉 玉 来 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 米 玉 玉 玉 玉 玉 玉 米 米 玉 玉 玉 玉 玉 玉 米 米 玉 玉 来 玉 玉 玉 十 


Procedure Set_Vector: 


begin 
GetTntVec($40 ,originaL_40h) : {オリ ジ ナ ル の ベク ター を 退避 
SetTntVec($40 ,@Tnterrupts) : {割り 込み 手続 き の ベ クタ ー を セッ ト } 
end: 


玉 玉 玉 玉 玉 玉 玉 来 玉 玉 玉 玉 玉 玉 来 来 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 米 玉 米 玉 玉 米 米 玉 玉 米 玉 玉 玉 米 玉 玉 米 玉 玉 玉 玉 十 
procedure Reset_Vector: 
begin 
SetTntVec($40 ,originaL_40h) : {ベク ター を 元 に 戻す } 


end: 


玉 玉 玉 玉 玉 来 玉 玉 玉 玉 玉 玉 玉 来 玉 玉 北米 玉 玉 玉 玉 米 玉 玉 米 玉 玉 玉 玉 玉 米 玉 玉 玉 玉 玉 玉 米 米 玉 玉 玉 来 玉 玉 米 玉 玉 玉 玉 来 来 来 士 


begin 
checkbreak := faLse: 


CLrScr: 
Set_Vector : 


for i:=1 to 100 do 
begin 


if imod7=2 then 


begin 
regS .ds :=Dseg : 
Tntr($40 ,regS) : 
end : 
end : 
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65: 8 Reset_Vector: 


それ で は リス ト 3-2 を 見 て み ま し ょ う 。 ま ず 、19 行 目 か ら 始 まる 割り 込み 処理 ルー チ 
ン で ある Interrupts 手続 き を 見 て み ま し ょ う 。 本 当 は 割り 込み な の で すか ら 、 そ の 英語 
で ある Interrupt に し た い の で す が 、Interrupt が TURBO Pascal の 予約 語 な の で s を 
尻尾 に つけ て 規則 に ふれ な いよ うに し まし た 。 

20 行 目 に ある Interrupt は 手続 き Interrupts が 割り 込み サー ビス ルー チン 、 つ まり 割 
り 込 み が 発生 し て か ら ど の よう な 処理 が 行わ れる の か を 記述 し た ルー チン で ある こと を 
示す 予約 語 で す 。23 行 目 で 定数 BELL を 画面 表示 し て いる の は MS-DOS の エス ケー 
プ ・ シ ー ケ ンス の 画面 送出 に より ブザー 鳴動 きせ る た めで す 。 実際 に は 画面 に BELL 
と いう 文字 が 書か れる の で は な く 、8 行 目 で 定義 され た 文字 コー ド を 画面 出力 する と 、 
MS-DOS の エス ケー プ ・ シ ー ケ ンス の 約束 に より ブザー が 鳴動 し ます 。24 行 目 の 出 力 
は メイ ン 部 で の 繰り 返し の 第 i 回 目 ご と に ブザー 鳴動 と 割り 込み の テス ト 中 で ある こと 
を 画面 に 示す た め の も の で す 。 

30 行 目 か ら の 手続 き Set_Vector は ベク タテ ー ブ ル を 書き 換え る た め の も の で す 。 書 
き 換 える か ら に は 、 そ の 前 に 何 が 書い て あっ た の か を 保存 し て 、 こ の プロ グラ ム の 実行 
が 終わ っ た ら 元 の 値 に 書き 戻し て お くべ き で す 。 こ の プロ グラ ム さ え 走 れ ば 後 は どう で 
も か まわ な いと いう の は 、 あ まり お 行儀 (7) が よい プロ グラ マー と は いえ ませ ん 。 あ な 
た が ユー ザー だ と し て 、 あ る ソフ ト を 使っ て か ら 次 の ソフ ト に 移る と 原因 不明 の 桑 走 が 
起こ っ た り し た ら 腹 が 立つ に 決ま っ て いま す 。 で すか ら 、 ベ クタ テー ブル を いじ っ た ら 
必ず 書き 戻す よう に 習慣 付け て お きま し ょ う 。 

も っ と も 40H 番 の 割り 込み は MS-DOS の ユー ザー に 反 放 し て いま すか ら 0 
う 書き 換え よう と も まっ た く 《 影 響 あ り ま せん 。 と は いえ 、 よ い 習 慣 は どん な と き に も 守 
り た いも の で す 。 車 が こない か ら と いっ て 赤 信 号 を 無視 し て いる と 、 い つの 日 か 大 き な 
事後 を 起こ し か ね ませ ん 。 自 分 で 無駄 だ と わか っ て いて も 、 よ い 習 慣 を くず す よ うな こ 
と は し な い に こ し た こと は あり ませ ん 。 

33 行 目 の GetIntVec は Dos ユニ ッ ト の 手続 き で 、 割 り 込 み の 40H 番 、 つ まり INT 
40H に 書か れ て いる ベク タ を original_40h と いう ポイ ンタ 変数 に し まう た め の も の で 
す 。 こ の よう に ある デー タ を 後 で 復帰 させ る た め に 一 時 的 に 取っ て お く こ と を 待避 と い 
いま す 。 

35 行 目 で は INT 40H 番 の 割り 込み が 生じ し た と き の 飛 び 先 、 つ まり サー ビス ルー チン 
で ある Interrupts の アド レス を セッ ト す る た め に 、 こ れ ま た Dos ユニ ッ ト の 中 に ある 
手続 き SetIntVec を 呼び 出し て いま す 。@( ア ッ ト マ ー ク と 呼び ます ) は その 後ろ に くる 
変数 の アド レス を 示す TURBO Pascal 特有 の 記号 で す 。QTInterruts は Interrupts 手続 
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き ⑳ エ ジ シ ト リャ ポイ ント ( 入 IP の ドレ ス な の で す 。 セグ メン ト だ オラ フ セ ッ ト 如 と 
めん どう な こと を 言わ な く て 済む の は あり が た いこ と で す 。 

41 行 目 の 手 続き Reset_Vector に より ベク タテ ー ブ ル の 復帰 を や っ て いま す 。 以 上 の 
手続 き Intteruputs 、Set_Vector 、 そ し て Reset_Vector の 3 本 が と て も 簡単 に 作れ る の 
も TURBO Pascal に 用 意 き ん れ て いる Dos ユニ ッ ト の お か げ で す 。 こ れ だ け の 処理 を 普 
通 の コン ピュ ー タ 言語 で や ろう と する と 、 あ の 手 こ の 手 で アデ セン ブラ か 機械 語 と 連結 さ 
せら れ ま すか ら 、 科 単に 済む の は 実に あり が た い 限 り で す 。 

メイ ンプ ログ ラム は 49 行 目 か ら 始 まり ます 。50 行 目 で 突然 CheckBreak と いう 変数 
が 飛び 出し て きま す 。 こ れ は STOP キー また は Ctrl-C を 押下 し て この プロ グラ ム を 中 
断 さ せる か どう か を 指定 する た め の 論 理 変数 で す 。 こ の 変数 は Crt ユニ ッ ト 内 で 定義 さ 
れ て いる の で 、 プ ログ ラム 内 で 何 の 定 義 も な し に いき な り 使 える の で す 。 真 (true) の 
と き は STOP キー また は COtrl-C で 暴 常 終了 、 つ まり プロ グラ ム を 実行 中 に 強制 停止 で 
きま す 。 こ こ で は 偽 (false) に セッ ト さ れ て いま すか ら 、 強 制 信 止 は で きま せん 。 

53 行 目 で Set_Vector に より ベク タテ ー ブ ル を 設定 し 、55 一 63 行 目 で : を 1 か ら 100 
まで 変化 させ せ 、 そ れ を 7 で 割っ た と き に 余り が 2 に な る と き 割 り 込 み が 59 - 62 行 目 
で 発生 する よう に な っ て いま す 。 i が 2 、9 、16 …… の と き に プ ブザー が 鳴動 し ます 。 こ の 
プロ グラ ム が Set_Vector で 書き 換え た ベク タテ ー ブ ル を 65 行 目 で Reset_Vector に よ 
り も と に 戻し て いま す 。 

ここ まで の トレ ー ニ ング で 、 な ん だ こん な めん どう な こと を し な いで も 簡単 に ブザー 
鳴動 で きる じゃ な いか と 思う の が 当然 で す 。 し か し 、 こ こ で は どう ベク タテ ー ブ ル を 書 
き 換 え 、 割 り 込 み ル ルーチン の アド レス を TURBO Pascal で は どう や っ て 引き 渡し て い 
る の か を 見 て お いて くだ さい 。 これが 次 の ステ ッ プ の トレ ー ニ ング に 大 切な の で す 。 


3-2-2m イ ンタ バル タイ マ 


PC-9801 に は 時 間 測 定 用 の イン タバ ル タ イ マ と いう ソフ トウ ェ ア 割 り 込 み が 用 意 さ 
れ て いま す 。 こ れ と 同等 の 機能 は 他 の パソ コン に も 用 意 き れ て いる は ず で す 。 科 単に い 
うと 、 イ ンタ バル タイ マ と は ある 一 定 の 時 間 間隔 で 自動 的 に 割り 込み を 発生 きせ る た め 
の メカ ニズム の こと で す 。 後 で その イン タバ ル タ イ マ を 利用 し て 時 間 を 測定 する ブログ 
ラム を 作り ます か ら 、 そ の た め の 予 備 知識 と し て イン タバ ベル タイ マ に つい て 必要 な 基本 
的 な こと が ら を ここ で 説明 し て お きま し ょ う 。 

まず 、 イ ンタ バル タイ マ を 起動 きせ る に は 、 ユ ー ザ ー プ ログ ラム の 中 で あら か じ め イ 
ンタ バル タイ マ を どの よう に 動か し た い の か の モー ド 等 を セッ ト し て お か な けれ ば な り 
ませ ん 。 それ に せ ミ 5 AH 、 つ ま 六 QA ラシン ジス ウ の 、E 位 05SXMG02H を いしい O 玉 、 つ や まり 
C レジ スタ 全体 の 16 ビッ ト に イン タバ ル 時 間 を それ ぞ れ セッ ト し ます 。 イ ンタ バル 時 
間 は 10msec(1/100 秒 ) 単位 で す 。 た と を えば 、CX = 5 と する と 50msec ご と に 割り 込み 
が 発生 し ます 。 さ ら に 、ES( エ クス トラ セグ メン ト ) の BX に イン タバ ル 時 間 が タイ ム 


を 2) これ が で きれ ば 一 人 前 39 


アウ ト に な っ た と き の 戻 り 番地 、 つ まり 割り 込み 処理 が 終っ た と き に 戻っ て くる 番地 を 
セッ ト し ます 。CX = 5 で あれ ば 、50msec 経過 後 ど この 番地 に ある プロ グラ ム を 実行 
すれ ば よい の か を ES : BX に 書い て お くわ け で す 。 こ れ で TINT 1CH を 行う と CX レジ 
スタ に セッ ト し た 時 間 で 割り 込み が 発生 し ます 。 
図 3-3 を 見 て くだ さい 。 イ ンタ バル タイ マ の 動作 原理 は 図 の 中 の 番号 順に 動作 し ま 
す 。 そ の 番号 に し た が っ て 説明 し ます 。 
(1 


ユー ザー の タイ マ 割 り 込 み 処 理 ル ー チ ン 


INT ICH 
AH-02H 


ユー ザー 1 
ログ タク 大 


CXー0 の と き 戻 る 


カレ ンダ イン タバ ル タ イ マ 処 理 ル ー チ ン 
(カウ ンタ 処理 Cx-1 ) 


tlYー ぬ ご 黄 | 9 の ( 商 汚 区 ご 型 靖 は 


BIOS 
Cx=0 
10msec セッ ト 
ハー ドウ ェ ア 割 り 込み 
(タイ マ 割 り 込 み 07H) 
10msec ご と に 起こ る 
AO | PD8253C-5 


一 図 333 イン タバ ル タ イ マ 構 成 図 

(1) ユー ザー 割り 込み ルー チン で 各 モ ー ド が セッ ト さ れ ま す 。 そ し て 、TINT 1CH が 行 
われ る と 割り 込み ベク タテ ー ブ ル の ベク タ 番 号 1CH の 内 容 を 参照 し て 、 カ レン ダ ・ イ 
ンタ バル タイ マ 処 理 ル ー チ ン へ 処理 を 移し ます 。 

(2) カレ ンダ ・ イ ンタ バル タイ マ 処 理 ル ー チ ン で は 、10msec ご と に タイ マ 割 り 込 み が 発 
生 す る よう に イン タバ ル タ イ マ ・ セ ッ ト ・ ル ー チ ン を セッ ト し 、 処 理 を イン タバ ル タ イ 
マ ・ セ ッ ト ・ ル ーー が は 稼 セ まず 。 

(3) イン タバ ル タ イ マ ・ セ ッ ト ・ ル ー チ ン で は 、。pPD8253C-5 と 呼ば れる イン タバ ル タ 
イマ 用 の 1IC に 10msec を セッ ト し ます 。 

(4)PD8253C-5 は 10msec ご と に タイ マ 割 り 込 み INT 07H( ハ ー ド ウェ ア 割 り 込 み ) を 
発生 し 、 タ イマ 割り 込み ルー チン に 信号 を 送り ます 。 

(5) タイ マ 割 り 込 み ル ー チ ン で は AH に 03H を セッ ト し 、INT 1CH を 行い ます 。 

(6) カレ ンダ ・ イ ンタ バル タイ マ 処 理 ル ー チ ン へ 処理 が 戻っ て きま す 。 カ レン ダ ・ イ ン 
タバ ル タ イ マ 処 理 ル ー チ ン で は 、CX レジ スタ か ら 1 を 減ら し 、CX ニ 0 に な る と ユー 
ザー 割り 込み ルー チン に 戻り ます 。CX ま 0 で あれ ば 再び 10msec を イン タバ ル タ イ マ ・ 
セッ メト ツー ナン に セッ 5 まあ 
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この よう に 、(1) で セッ ト さ れ た CX レジ スタ の 値 が 0 に な る まで (2) つ (3 っ (④ っ 
(5) (6) _ (2) つ ‥… の 順に ルー プ し ます 。 な お 、CX に 設定 で きる 経過 時 間 の 範囲 は 
10(CX = 0001H) - 655360msec( 約 11 分 、CX = 0000H) で す 。 

それ で は この イン タバ ル タ イ マ 割 り 込 み を 使う TURBO Pascal プロ グラ ム を 作っ て 
み ま し ょ う 。 リ スト 3-3 は イン タバ ル タ イ マ に より 1 秒 ご と に ブザー を 鳴ら し 、 同 時 に 
画面 に " interval test” と 表示 する プロ グラ ム で す 。 こ の プロ グラ ム は どれ か 任意 の キー 
を 押下 する と 停止 し ます 。 


圏 リス ト 3-3 
: Program LTST3_3: 


1 

2 

3 

4: Uses 

お: Crt, 
6: Dos: 

7 

8: 

9: procedure TntervaL : forward : 

1 1 : 米 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 米 玉 玉 玉 玉 玉 玉 米 玉 玉 玉 玉 米 玉 玉 米 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 来 玉 玉 来 玉 玉 
13: procedure TntervaLBod7 : 

15: 1nterrupt : 


17: const 
18: beLL=#$07 


20: begin{TntervaLBody}+ 

21: WriteLn(beLL, イン タバ ル タ イ マ の テス ト 中 。 う : 
に TnterVaL : 

23: end: {TntervaLBody} 


25 : * 玉 玉 玉 来 玉 来 玉 玉 玉 玉 玉 玉 玉 玉 来 玉 玉 玉 玉 玉 玉 米 玉 米 玉 玉 玉 玉 玉 玉 玉 玉 来 玉 玉 玉 玉 玉 玉 玉 来 玉 玉 玉 玉 玉 


27 : procedure TntervaL : 


演 お も 。:V ま 

29: regS : Registers : 

30: 

31: begin 

に と regS .aX :=$0200: 

33: regS . Cx:=$0064: 

34 : regs .eSs:=seg(TntervaLBodY) : 
35 : regs .bx:=ofs(TntervaLBody) : 
36 : 

に 人 Tntr($1c,regs) : 


38: end: 1{ of Tnterval, 
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40 : [** 玉 米 米 玉 玉 玉 玉 玉 米 玉 玉 玉 米 米 玉 玉 玉 玉 玉 玉 六 玉 玉 玉 玉 玉 玉 玉 米 玉 玉 玉 玉 玉 玉 米 玉 玉 玉 玉 玉 玉 玉 米 玉 来 来 来 玉 玉 玉 十 


42: begin 
43: checkBreak := fa]se: 
44 : TnterVaL : 


45: 

46: repeat untiL. keypressed: { wait program end 
47: 

48: port[$02] :=(port[$02] or $01): { stop TntervaL. timer 


49: WriteLn : 
50: Writetn() イ ンタ バル タイ マ の テス ト 終 了 うう : 
51: end. { of main } 


9 行 目 で 手続 き Interval が forward 宣言 され て いま す 。 こ の 手続 き の 本 体 は 27 行 目 
か ら 定 義 き れ て いま す が 、 そ れ 以 前 に 22 行 目 で 手続 き IntervalBody の 中 で 呼び 出さ れ 
て いま す 。 し た が っ て 、9 行 目 が な いと 22 行 目 で 未定 義 の 手続 き 使用 で エラ ー が 出 て 
し まい ます 。 そ れ を 人 避け る た め に forward 宣言 し て いる の で す 。 

それ な ら 手 続き Interval を IntervalBody の 前 に 定義 むす れ ば よさ そう で す が 、 今 度 は 
34 、35 行 目 で IntervalBody が 呼び 出さ れ て いま すか ら 、 こ こ が エ ラー に な っ て し まい 
ます 。 こ の よう に お 互い が 参照 し あう 手続 き を 作ら ぎる を えな いと き に は forward 宣言 
で いっ た ん すでに 定義 きれ て いる か の よう に 「 見 せ か ける 」 の が テク ニッ ク で す 。 

13 - 23 行 目 の 手続 き IntervalBody が や る こと は 実質 的 に は ブザー 鳴動 と 画面 に 文 
字 を 表示 する だ け で すか ら 、 引 数 を 持っ て いま せん 。 た だ 、22 行 目 で 27 行 目 以下 で 定 
義 き れ て いる イン タバ ル タ イ マ の 設定 手続 き で ある Interval を 呼び 出し て いる と ころ に 
注意 し て くだ さい 。 割り 込み が 発生 する た びに ある 特定 の 動作 (この 場合 は ブザー 鳴動 
と 文字 の 画面 表示 ) を 行い 、 そ れ が 済ん どら また イン タバ ル タ イ マ に 制御 を 引き 渡す よ 
と ャ 

27 - 38 行 目 の Interval 手続 き で は イン タバ ル タ イ マ の 各 モ ー ド を 設定 し ます 。32 行 
目 で は A レジ スタ の 上 位 8 ビッ ト に 02H を 指定 し て 、 イ ンタ バル タイ マ の モー ド 設 定 
を 指示 し ます 。1 秒 ご と の 割り 込み で すか ら 、33 行 目 で CX に $64 、 つ まり 10 進 の 100 
を 設定 し て 、 割 り 込 み 時 間 を 1 秒 (10msec X 100) に セッ ト し て いま す 。 そ し て 、ES : 
BX に は 割り 込み 処理 ルー チン で ある 手続 き IntervalBody の セグ メン ト ア ドレ ス と オ 
フ セ ッ ト ア ドレ ス を セッ ト し ます 。 こ れ は 割り 込み か ら 戻 っ て きた ら ど こ へ 行け ば よい 
の か の 番地 に な . り ます 。 ここ まで 用 意 し た と ころ で 37 行 目 で ベク タテ ー ブ ル の ベク タ 
番号 1CH イン タバ ル タ イ マ 処 理 ル ー チ ン に 飛ば し ます 。 

メイ ンプ ログ ラム は 42 行 目 か ら で す 。43 行 目 で STOP キー また は Ctrl-C の 押下 を 
無効 に し て お きま す 。 こ れ に より プロ グラ ム が 異常 な 終了 を し て イン タバ ル タ イ マ が 動 
いて いる まま に な っ て も 悪影響 を 与 を な いよ うに する た めで す 。 46 行 目 で キー が 押さ 
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れる まで 無限 ルー プ を 設定 し ます 。 こ の ルー プ を 繰り 返し て いる 間 に 1 秒 ご と に ブザー 
が 鳴動 し ます 。 こ の ルー プ の 中 に な に か 処理 を 入れ て お く と その 処理 を し な が ら 1 秒 ご 
と に プ ブザー を 鳴ら すこ と が で きま す 。 

48 行 目 に お か し な 文 が いき な り 飛 び 出 し て きま す 。 こ れ は イン タバ ル タ イ マ の 使用 
を 終了 する た め の 処 理 で す 。 こ れ に より PD8253C-5 を 停止 し 、 図 3.3 の ハー ドウ ェ ア 
割り 込み の 発生 を 終了 し て いま す 。 


3-2-3m 時 刻 表示 プロ グラ ム 

それ で は いよ いよ イン タバ ル タ イ マ の 割り 込み ベク タ を 書き 換え て 、 ス クリ ー ン の 右 
隅 に 現在 の 時 刻 を 常時 表示 する プロ グラ ム を 作り まし ょ う 。 プ ログ ラム の 説明 に 入る 前 
に も う 一 度 イ ンタ バル タイ マ の 復習 を か ね て 、 図 3-3 を 眺 め な が ら ど の よう に プロ グラ 
ム を 作れ ば よい の か あら すじ を 考え て み ま す 。 

図 33 で 、 イ ンタ バル タイ マ を 起動 きせ た と き に 、(4) の PD8253C-5 か ら 10msec ご 
と に ハー ドウ ェ ア 割 り 込 み INT 07H( タ イマ 割り 込み ) を 発生 し て いま す 。 つ まり 、 こ 
れ を 利用 すれ ば 10msec と いう 時 間 が 手 に 入り ます 。 む ろ ん 、 イ ンタ バル タイ マ の CX 
レジ スタ に 1 を セッ ト し て も 10msec は さら れ ま す が 、 こ こ で は 割り 込み ベク タ を 書き 
換え る 方 法 を 用 いた プロ グラ ム を 作る の で 、/PD8253C-5 か ら 10msec を を える こと に し 
に 生 0968 

さて 、INT 07H の 割り 込み が 発生 する と タイ マ 割 り 込 み ル ー チ ン へ 処理 が 移さ れ ま 
す 。 そ し て 、AH レ ジス タ に 03H を セッ ト し て 、INT 1CH を 行っ て カレ ンダ ・ イ ンタ 
バル タイ マ 処 理 ル ー チ ン へ 処理 が さら に 移さ れ ま す 。 そ こ で 、 こ の INT 07H の 割り 込 
み ベ クタ の 内 容 を 自作 の 割り 込み 処理 ルー チン の アド レス に 書き 換え 、10msec ご と に 
自作 の 割り 込み 処理 を させ る こと に し ます 。 こ の 自作 の 割り 込み 処理 ルー チン の 中 に カ 
ウン タ を 作り 、 時 間 を 計算 表示 させ る よう に すれ ば 、 う まく いき そう で す 。 

具体 的 な 動作 と し て は 、 図 3-3 の (1) で イン タバ ル タ イ マ を セッ ト し 、INT 1CH を 
行い 処理 を (2) (3) 一 (4) と 移し ます 。 そ し て 、(5) で 自作 の 割り 込み 処理 ルー チン 
で 時 刻 表 示 を 行い 、 イ ンタ バル タイ マ の 各 モ ー ド を セッ ト し 、(5) の ルー チン か ら INT 
1CH を 行い ます 。 こ うす れ ば (5) (6) _ (2) (3) (3) (5) つ ‥…‥ の ループ で 時 刻 
を 表示 する こと が で きる の で す 。 


圏 リス ト 3-4 
: t$M 1024,0,0 + 


program LTST3_4: 


Uses 
Dos: 


oO の の の ロ 心 の いい は は 


: Procedure TntervaLT1mer :forward: 
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:。 Var 
1h。m。 8。 8100  : word: { s100 is dumy } 


: t$F++ 


: procedure TnterruptBody : TnterruDt : 


: begin { of TnterruptBody } 


TnLine($fa): { CLI … 割り 込み 禁止 } 
{ 時 間 カ ウン ト 処 理 }{ 割り 込み 処理 ルー チン 内 で は GetTime を 使え な いた だめ } 
inc(s):j{ 8 := sa+1 


if s >= 60 then 
begin 
| 旨 隊 る 0 けた 
inc(m) : 
end : 


if m >= 60 then 
begin 
m := 0: 
inc(h) : 
end : 


if h >= 24 then 
h := 0: 


{ dispLay time on screen ナ 


mem[$a000:$0088] := $30 +(h dirv 10): を 
mem[$a000:$008a] := $30 +(h mod 10): て hours  } 
mem[$a000:$008c] := $3a: {3A is 7: ルト 

mem [$a000:$008e] := $30 +(m div 10): 

mem [$a000:$0090] := $30 +(m mod 10): { minutes ナ 
mem[$a000:$0092] := $3a: {て 3A is 2: ルト 
mem[$a000:$0094] := $30 +(s div 10): 
mem[$a000:$0096] := $30 +(s mod 10): { seconds ナ 


TntervaLT1mer : 

TnLine($fb) : { STI … 割り 込み 許可 } 
: end: 人 { of TnterrutBody 
:t$F- サ 


: procedure TntervaLT1mer : 
ぉ ルス タコ バル タイ マエ の 談 定 。 ふ 
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58: var 

59: dos_reg : Registers: 

60: 

61: begin † of TntervaLTimer 

8 の * dos_reg.ax := $0200: 

63: dos_reg.cx := $0064: { 1sec } 
64: dos_reg.es := Seg(TnterruptBody) : 
65: dos_reg.bx := DUfs(TnterruptBod7y) 
66: 

67: 1ntr($1c, dos_reg) : 

68: end: { of TntervaLTimer } 

69: 

9 

71: begin 

当 は GetTime(h,m,s,s100):、 { function read time } 
73: 

74: TntervaLT1mer: 

75: 

76: keep(0): { TRS program } 


77: end. { of main program } 


こう し て 作っ た プロ グラ ム が リス ト 3-4 で す 。1 - 3 行 目 は コン パイ ラ 指 令 で す 。1 
行 目 の $M 指令 は メモ リ の 割当 サイ ズ を 指定 する も の で す 。 一般 的 な 形式 は 


{SM スタ ッ ク サ イズ , ヒー プ 最 小 サ イズ , ヒー プ 最 大 サイ ズ } 


で す 。 こ の プロ グラ ム で は 作業 領域 と し て スタ ッ ク を 使用 し ます 。 し か し 、 必 要 メ モ 
リ 容 量 と し て どれ だ け と れ ば よい の か は マニ ュ ア ル の どこ に も 書い て あり ませ ん 。 そ こ 
で ぼく は 試行 錯誤 的 に 最初 は 5 一 6K バイ ト ほ ど と 大 きめ に と っ て お き 、 次 第 に 減ら し 
て この 値 に し まし た 。 ヒ ー プ は 使わ な い の で メモ リ 確 保 す る 必要 が あり ませ ん 。 

13 行 目 に {$F 十 } の コン パイ ル 指 令 が あり ます 。 十 を 指定 する と 必ず FAR コー ル 、 一 
だ と TURBO Pascal が 適当 に 決め て FAR また は NEAR コー ル が 手続 き の 呼び 出し に 
使わ れ ま す 。 そ うい われ て 、 あ あ そ う で すか と 理解 で きる の は か な り の 上 級 プ ログ ラマ 
で す 。 ち ょ っ と 変わ っ た こと を や ろう と する と き に は 安全 策 を と っ て 十 を 指定 し て お け 
ば 間違い あり ませ ん 。 こ こ で は その 方 針 で {$F 二 }) と し て いま す 。 

8 行 目 で 割り 込み の 部 分 を forward 宣言 し て お きま す 。10 、11 行 目 で 宣言 され て い 
る 変数 は それ ぞ れ 1h が 時 、m が 分 、s が 秒 を 表し ます 。s100 は 100 分 の 1 秒 を 表し ます 
が 、 あ と で メイ ンプ ログ ラム の 72 行 目 で GetTime の 引数 に 使わ れ て いま す 。 し か し 、 
PC-9801 で は 100 分 の 1 秒 は サポ ー ト され て いな い の で 、s100 は 単なる 意味 の な い 引 
数 に な り ま す 。 つ まり 、 引 数 の 数 合わ せ の た め だ け の 変数 で す 。 

14 行 目 か ら 割 り 込 み 処理 用 の 手続 き で す 。17 行 目 で 8086 の 割り 込み 禁止 命令 CLI 
を 直接 機械 語 で 行っ て いま す 。 こ の 命令 は TURBO Pascal に 存在 し な い の で Imline を 
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使用 し まし た 。 こ れ は 割り 込み 処理 中 に 別 の 割り 込み が 発生 する の を 防止 する た め の も 
の で す 。 こ の あたり の 話 に な る と 、 話 が よく 見 えな く な る (?) か も 知れ ませ ん が 、 割 り 
込み 処理 の 「 定 石 」 と し て ほか の プロ グラ ム を 流用 する と き に この よう に する も の だ と 
思っ て ぐだ さい 。 

21 行 目 で 1 秒 進 め て いま す 。 割 り 込 み 処理 ルー チン 内 で は GetTime を 使用 で きま 
せん か ら 、 時 刻 の 進め 方 は 自分 で 作ら ね ば な り ま せん 。 そ の 理由 は GetTime は Dos ユ 
ニッ ト の 関数 で すか ら 、 コ ン パ イル 時 に dos.tpu を この プロ グラ ム に 結合 し ます 。 そ し 
て プロ グラ ム の 終了 と と も に dos.tpu の 部 分 も メモ リ か ら な く な り ま す 。 一 方 、 こ の プ 
ログ ラム は 割り 込み 処理 プロ グラ ム を メモ リ に 常駐 させ て 終わ り ま すか ら 、 そ の 中 で な 
く な っ て し まう も の か ら 手 に 入れ た GetTime を 使う わけ に は いか な い の で す 。 

24 一 37 行 目 で 24 時 間 表 示 用 の デー タ を 計算 し ます 。40 一 47 行 目 で は VRAM に 直 
接 デ ー タ を 書き 込ん で いま す 。 こ こ で $30 は 文字 コー ド の 0 を 表し て いま す 。 

49 行 目 で forward 宣言 され て いた IntervalTimer を 呼び 出し ます 。 後 で 出 て くる よう 
に 、 こ の 手続 き で イン タバ ル タ イ マ の 設定 を し ます 。 こ こま で で 割り 込み 処理 が 終わ り 
ます か ら 、51 行 目 で STI 命令 を 出し て 割り 込み の 許可 を し ます 。 こ れ は 17 行 目 と 対 に 
な っ て 割り 込み 処理 の 定石 を 構成 し て いま す 。53 行 目 で TURBO Pascal の 手続 き 呼 び 
出し 方 式 に 戻し て お きま す 。 こ れ も 13 行 目 と 対 に な り ま す 。 

56 行 目 か ら は イン タバ ル タ イ マ の 設定 手続 き で す 。 こ れ は も うす で に 前 の プロ グラ 
ム で 説明 済み の テク ニッ ク で す 。 

メイ ンプ ログ ラム は 71 行 目 か ら 始 まり ます 。72 行 目 で まず カレ ンダ 時 計 の 時 刻 を 読 
み 込 み ま す 。 こ れ を 基準 と し て イン タバ ル タ イ マ か ら 発 生 する 1 秒 ご と の 割り 込み で 時 
刻 表 示 を 進め て 行き ます 。74 行 目 で イン タバ ル タ イ マ を 設定 し ます 。76 行 目 で Keep と 
いう 見 慣れ な い 手 続き が 出 て きま す 。 こ の 手続 き は プロ グラ ム を メモ リ 内 に TSR( 和 常駐) 
させ る た め の も の で す 。 TSR と は Termenate Stay Resident 、 常 駐 終 了 の 略 号 で す 。 $M 
コン パイ ラ 指 定 な し に これ を や る と 、 プ ログ ラム 終了 後に MS-DOS の command.com 

メモ リ に 戻 ろ うと し て も 空き 場所 が な く な り 、 リ セッ ト す る 以外 に 回 復 で き な い 致命 
的 な エラ ー が 発生 し ます 。 

し か し 、TURBO Pascal に は 常駐 し た プロ グラ ム を メモ リ か ら 追 い 出 す 、 つ まり 解 
放す る 手続 き は あり ませ ん 。 し た が っ て 、 こ の プロ グラ ム が 終了 し て 画面 の 右上 に 時 刻 
が 表示 され る よう に な る と 、 メ モリ 使用 可能 量 は 減少 し ます 。 試 し に この プロ グラ ム を 
走ら せる 前 と 後 で chkdsk コマ ンド を 使用 し て 調べ て みて くだ さい 。Keep の 引数 は プ 
ログ ラム の 終了 コー ド な の で す が 、 こ こ で は 常駐 終了 する の で あま り 意 味 を 持ち ませ 
ん 。 た だ 、 プ ログ ラム の 開発 途中 で は 常駐 終了 が どん な 終わ り 方 を し た の か を チェ ッ ク 
する に は 役 に た つ で し ょ う 。 

これ で すべ て 完成 し た の で す が 、 こ こ で 紹介 し た リス ト 3-4 の プロ グラ ム は 他 の 目的 
に 簡単 に 改造 する こと が で きま す 。 つ まり 、 こ の プロ グラ ム の パタ ー ン を 眺め て みる と 
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次 の よう に な り ま す 。 
{$M+} 


Program .....・ 8 
useSs DoSs: 
procedure Tnterva]1T1imer : forward: 
T$F+} 
Procedure TnterruptBody : 1n も erruDt : 
begin 
Tn1ine($fa) : 
Tnterva1T1mer: 
Tn1ine($fb) : 
end : 
T{$F-} 
procedure Tnterva]1T1mer : 


begin 


Tnterva]T1imer : 
Keep(0): 
end . 
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この 定石 を 使え ば 割り 込み 処理 ルー チン の InterruptBody の 中 身 を 書き 換え た り 、 メ 
イン プロ グラ ム で 設定 する 割り 込み の 種類 を 変え た て や れ ば いく ら で も 改造 で きま す 。 た 
と えば 、 毎 正 時 に プ ザ ー を 鳴ら すこ と な ど 科 単に で きま す 。 ま た 、 実 験 用 に TURBO 
Pascal で プロ グラ ム を 書い て 、 測 定 値 を ある 時 間 ご と に 読み 込ん で 処理 を し 、 し か も そ 
の 測定 中 に 他 の プロ グラ ム を 実行 きせ た りす る と いう 離れ 技 も これ で 可能 と な り ま す 。 
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地味 な 世界 を 見 直 そ う 


第 3 章 で は か な り 高 度 な TURBO Pascal に よる 割り 込み を や っ て み ま し た 。 プ ログ 
ラム の 中 で いっ た い 何 を や っ て いる の か 調べ る の に 少々 疲れ て きま し た か 。 こ の 章 で は 
キー ボー ド 関 係 の テク ニッ ク を トレ ー ニ ング し ます 。 前 の 割り 込み に 比べ る と ぐっ と や 
さ し い プロ グラ ム ば か り で すか ら 、 気 楽に チャ レン ジ し て みて くだ さい 。 

キー ボー ド は 入力 装置 の 基本 で す 。 最 近 は ウィ ンド ウ 環 境 で マウ ス を 積極 的 に 使用 す 
る ソフ トウ ェ ア が 増え て きま し た が 、 や は り パ ソコ ン に 文字 情報 を 入力 する と な る と 、 
キー ボー ド が 主役 に な り ま す 。 こ こ で 紹介 する プロ グラ ム は どれ も 簡単 な も の ば か り で 
す が 、 実 用 的 に 十分 価値 の ある プロ グラ ム を 作る た め の ヒ ント に な る は ず で す 。 

キー ボー ド 関 係 を いろ いろ いじ り 回 す に は デバ イス ・ ド ライ バ を 作ら な けれ ば な ら な 
い の で す が 、 中 級 プ ログ ラマ ー へ の トレ ー ニ ング と し て は TURBO Pascal で 簡単 に プ 
ログ ラミ ング で きる 範囲 に 絞っ て あり ます 。 と は いえ 、 こ こ で 紹介 する サン プル ・ プ ロ 
グラ ム は どれ も 応用 範囲 が 広い も の で すか ら 、 例 題 を 入力 し て 動作 を 確認 し な が ら テ ク 
ニッ ク を 勉強 し まし ょ う 。 


BASIC に 負け そう 
4 一 1mINKEY$ 


BASIC で 作っ た プロ グラ ム を 読み や すく する た め に TURBO Pascal に 移植 する こと 
は よく あり ます 。 プ ログ ラミ ング の 勉強 を BASIC で まず 始め た ひと が ほとん ど で し ょ 
う 。BASIC の よさ は な ん と いっ て も 思い つく まま に プロ グラ ム を 書け る と ころ に あり 
ます 。 厄介 な プロ グラ ム の 書き 方 、 つ まり 書法 に と ら わ れる こと な く 、 の び の びと プロ 
グラ ム を 書け る の は 魅力 で す 。 5 

と ころ が 、 あ まり の び の び 書 いた 結果 、 あ と で プロ グラ ム を 改良 し よう と し た り 、 ほ 
か の ひと に プロ グラ ム を 読ん で も ら お うと し た と き に 困っ た こと が お こり ます 。 は て プ 
ログ ラム の 論理 (ロジック ) は どう だ っ た の か と か 、 こ こ で 一 時 的 に 使わ れる 変数 は な 
ん だ っ た の か な ど と いう こと に な り ま す 。 こ うし た 問題 は いろ いろ な 参考 書 に 載っ て い 
る BASIC の プロ グラ ム を 理解 する と き に も お こり ます 。 
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また 、BASIC で 書か ん た プロ グラ ム を TURBO Pascal に 移植 する と き に 、BASIO 
特有 の 機能 を どう 実現 する か と いう 問題 も あり ます 。 こ れ が 原因 で 、 い まま で 自分 で 開 
発し た BASIC を TURBO Pascal の 中 に 積極 的 に 利用 で き な い こと も よく ある よう で 
す 。TURBO Pascal より BASIC の ほう が グラ フィ ックス が 充実 し て いた の で 、 き れい 
な 表示 を 必要 と する プロ グラ ム を BASIC で 作ら ざる を を えな いこ と が あり まし た 。 

し か し 、TURBO Pascal も バー ジョ ン ア ッ プ を 重ね て グラ フィ ックス 機能 は BASIC 
と 有色 が な い ど ころ か 、 そ れ を し の ぐ ほ ど に な り ま し た 。 こ うな る と いま まで 開発 し た 
り 参考 書 に 載っ て いる BASIC プロ グラ ム を TURBO Pascal に 移植 し た く な る の が 人 
情 (?2) で す 。 そ こ で 出 て くる の が TURBO Pascal に 用 意 き され て いな い BASIC 特有 の 
命令 を どう 移植 する か と いう 問題 で す 。 

その 中 で も BASIC の INKEY$ 関 数 は TURBO Pascal に 移植 する と な る と 少々 厄介 
で す 。 リ スト 4-1 を 見 て くだ さい 。INKEY は キー ボー ド で 押下 し た と き そ の キー 文字 
を 返す 関数 で す 。 短 い プ ログ ラム で すか ら リ スト の 書き 込み を 参考 に すれ ば 内 容 は 理解 
で きる は ず で す が 、 科 単に 説明 し て お きま す 。 


リス ト 4-1 
: program LIST4_1: 隔 20 が 


: Uses Crt: 


: funct1on Tnkey : char : 
: {1 文字 取得 関数 } 
Var 

+ す ChaY : ChaY: 


oO ココ の の 必 の OO は 


10: begin 

> Tnkey := #00: 

まま 3 if KeyPressed then 

13: begin 

14: DeLay(0) {機種 に より 調整 必要 } 
15: Tnkey := Readkey: 

1 end : 


19: {Main Program} 

20: begin 

ピ ゃ repeat unt1L. Tnkey = ? リ ): 

22: {スペ ー ス が 押さ れる まで 無限 ルー プ }+ 
23: end. 


3 行 目 で Crt ユニ ッ ト を 使用 し て いる の は 後 で この ユニ ッ ト に 属す る 関数 、 KeyPressed 
と ReadKey を 使用 する た めで す 。5 行 目 で これ か ら 開 発する 1 文字 取得 関数 を Inkey 
と し て 文字 関数 定義 し ます 。 
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この 関数 の 本 体 は 10 行 目 か ら で す 。11 行 目 で 初期 値 と し て この 関数 の 何 も 押 され な 
いと き の 値 を ヌル 文字 に 設定 し て お きま す 。12 行 目 で キー 押下 が あっ た か どう か を 検 
出し ます 。14 行 目 の Delay 関数 は パソ コン の 機種 に よっ て は 0 以外 の 適当 な 値 に 設定 
し な いと 、Keypressed 関数 が ハー ドウ ェ ア の タイ ミン グ の 関係 で 動作 し な いこ と と が 
ある の で 、 そ の た め の も の で す 。「 適 当 な 値 」 は 試行 錯誤 で 決定 し ます 。 

この リス ト を 見 る と 、「 な ん だ 、 こ ん な こと な ら た だ ReadKey 関数 だ け で 同じ こと が 
で きる ん じゃ な いか 」 と 思っ た の で は あり ませ ん か 。~" じ か じ 、 ここ で 注意 し て お きた い 
の は 、 こ の 関数 は ASCII コー ド 対 し て の み 有 効 だ と いう こと で す 。ATOK や VJE な ど 
の 日 本 語 フ ロン ト エ ンド プロ セッ サ で 入力 され る 日 本 語 の 2 バイ トコ ー ド は どう し た ら 
よい の で し ょ うか 。ASOCII コー ド は 1 バイ ト で 1 文字 に 対応 する の に 対し て 、MS-DOS 
の 日 本 語 コ ー ド 、 つ まり シフ ト JIS コー ド は 2 バイ ト で 1 文字 に 対応 する の で すか ら 、 
ちょ っ と 厄介 で す 。 


画 リ スト 4-2 
: Program LTST4_2: 


: Uses Crt,Dos: 


中 

2 

3 

4: 

5: type 
6 Str2 = string[2] : 
4 

8 


: Var 

4 command : Char ? 
10: character : Str2: 
第 3 


12: function Tnkey(var KeyChar : Char) :booLean : 
13: {1 文字 取得 関数 } 


14: var 

15: DosRec : Registers: バ {レジ スタ アク セス 用 } 
光 

17: begin 

38^ if KeyPressed then 

まき begin 

20: DosRec.ax := $0800: 

21 : Msdos(DosRec) : 

2 keychar := Chr(Lo(DosRec . ax)) : 

23: Tnkey := TRUE: 

24: end 

25 : eLse 

26: Tnkey :=FALSE: 

27: end: 

8. こま キャ * こ に ューEr2e" 才 半 や 電 は panrg ロ ンー ジ 記 ま ビ + 
29: {Main Program} 

30: begin 


に CheckBreak := FALSE: 
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23 CLrScr: 
33・ WriteLn(〉?INKEY。 ノ デモ . ド ノ キ ー デ アモ オシ テク ダサ イ 。.)。 
34 : SBBG ッ エー プ トマ リマ スズ ス の ) 


35 : WriteLn : で 
36: command := #00: 和 {取得 文字 初期 化 } 


38 : repeat 
39: {ESC キー (コー ド 27 ) が 押さ れる まで ルー プ す る } 


40: if TnKey(command) then 

41: begin 

42: Character := command: 

43: if Ord(command) > $80 then 

44 : も ジン フト 。JRS- コ テー ボ + 

45: begin 

46 : Write() カ ンジ コー ド デス . コー ド ハ :!,Ord(command) ) : 
47: if TnKey(command) then 

48: Write(?:),Urd(command) ) : 

49: WriteLn(? !,Concat(character , command) ) : 

50 : end 

5t: eLse 

2: {ASCIT コー ド } 

53: WriteLn() ア スキ ー コー ド デス . コー ド ハ *, Ord(command) , 
54 : ) う 。Command ) : 

55: if command <>#27 then WriteLn() ド ノ キ ー デ モ オ シテ クダ サイ .), 
56: 2 が 
57: WriteLn : 

58: end : 

59: until, command = #27: 

60: end. 


リス ト 4-2 の Inkey 関数 は 複数 の バイ ト が 一 度 に 入力 され て も 、 き ちん と それ を 判別 
し て コー ド を 返す よう に 改良 し た も の で す 。12 行 目 の Inkey 関数 は キー 入力 が ある と 
値 が TRUE と な り 、 そ の 入力 文字 を 引数 と し て 返す 関数 で す 。19 24 行 目 で 第 2 章 
で 勉強 し た MS-DOS の ファ ンク ショ ン ・ コ ー ル を 使用 し て 押下 され た キー の コー ド を 
取り 出し て いま す 。 

20 行 目 の A レジ スタ 設定 は エコ ー な し の キー ボー ド 入 力 の ファ ンク ショ ン ・ コ ー ル 
で す 。 エ コー と は エコ ー バ ッ ク と も いい ます が 、 キ ー 入 力 を その まま 画面 に 表示 する こ 
と で す 。 こ の プロ グラ ム で は 必要 な い の で エコ ー は 表示 し ませ ん 。 つ ま り 、 何 が 押さ れ 
た の か が 自動 的 に 表示 する こと を や り ま せん 。 

メイ ンプ ログ ラム は 29 行 目 か ら で す 。 こ の プロ グラ ム は エス ケー プ ・ キ ー を 入力 さき 
れる まで 動き ほ ま す 。 押下 文字 は 変数 command に 格納 され ます か ら 、36 行 目 で ヌル 文 
字 に 初期 化し て お きま す 。 

38 一 59 行 目 で 取得 文字 が ESC キー (コー ド 27) に な る まで 繰り 返し ます 。 キ ー の ど 
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れ か が 押下 さ れる と その 文字 を と りあ える ず 42 行 目 で character と いう 2 文字 長 の 文字 
変数 に 格納 し ます 。 こ れ で character の 1 文字 目 は command と 同じ に な り ま す 。 

43 行 目 で 入力 文字 の 1 文字 目 が ASCII コー ド で 80H を 越え た ら そ の 文字 は シフ ト 
JIS コー ド の 1 文字 目 で ある と 判定 し て いま す 。 

シフ ト JIS コー ド で は 2 バイ ト で 1 文字 の 日 本 語 (漢字 ) を 表す よう に し て いま す 。 シ 
フト JIS コー ド は 図 4.1 の よう な バイ ト の 組み 合せ に な っ て いま すか ら 、 未 定義 の コー 
ド の 1 バイ ト 目 が 80H 以上 の も の は た くさ ん あり ます 。 し た が っ て 、1 バイ ト 目 だ け で 
シフ ト JIS コー ド 入 力 の 判定 を する の に は 問題 が ある の で す が 、 こ こ で は プロ グラ ム を 
簡単 に し て 1 バイ ト 目 だ け で 判定 させ て いま す 。 も ちろ ん 、1 バイ ト 目 と 2 バイ ト 目 を 
判断 し て 、 シ フト JIS コー ド な の か 未定 義 コ ユー ド な の か も 分 け て 表示 する こと も それ ほ 
が 難し で を いで し は よう 5 


第 1 バイト 
EO EF 

第 
2 第 
バ ey。 
イ 水 
ト 準 
第 
3 
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圏 凶 4-1 シフ ト JIS の 構成 

46 行 目 で まず シフ ト JIS コー ド の 1 バイト 目 の 文字 コー ド を 表示 し ます 。47 行 目 の 
Inkey の 2 度目 の 呼び 出し は 単に シフ ト JIS コー ド の 2 バイ ト 目 を 読み 出す た め だ け の 
も の で す 。48 行 目 で 2 文字 目 の コ ー ド を : (コロ ン ) の 後ろ に 表示 し 、49 行 目 で 2 バイ 
ト 目 と し て 得 ら れ た command を character に つなげ て 画面 表示 し ます 。 こ うす る と 漢 
字 が 表示 され ます 。 

51 一 58 行 目 は 入力 文字 が アス キー コー ド の 場合 で す 。 こ の と き は その まま 画面 に 
コー ド と 文字 を 表示 させ る だ け で す 。55 行 目 は ESC キー が 押 き れ た ら プ ログ ラム が 終 
了 す する の で 、 そ の た め の 準 備 を 行い ます 。 厚 27 は エス ケー プ ・ キ ー の コー ド で すか ら 、 
ESC の 押下 に より 繰り 返し を 終了 し ます 。 

ここ で 紹介 し た テク ニッ ク を 応用 する と 、 ア スキ ー コ ー ド 入力 と シフ ト JIS コー ド 入 
力 が 混在 する よう な プロ グラ ム 開 発 に 便利 で す 。 た と えば 次 の よう に ユー ザー に 入力 き 
せる こと が よく あり ます が 、 そ の と き に 日 本 語 入 力 し て いる と いち いち 半角 、 つ まり 
CtrLXFER な ど を 押下 し て ASOII コー ド 入 力 に 切り 替え な いと 動作 し な い プ ログ ラム 
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が まぐ あり ます 。 


古い デー タ を 捨て ます か ?  Y(yes) or NCno) 


ぼく た だ たち 素人 が 作っ た プロ グラ ム な ら ま だ し も 、 売 り も の に な っ て いる 市 販 ソ フト 
で も そん な こと が ある の だ か ら 驚 き で す 。 ここ で 解説 し た よう な テク ニッ ク を 使え ば 、 
ユー ザー に 厄介 な こと を させ な い 親 切 プ ログ ラム が 簡単 に 実現 で きま す 。 


ここ が キー 入力 の 溜り 場 
4 一 2 ョ キー ボー ド バ ッ ファ 

4-1 節 で は BASIC の INKEY$ 関 数 と まっ た く 同 じ 機 能 を 果たす TURBO Pascal の 手 
続き を 作ろ うと し まし た 。 し か し 、 な か な か むず か し いも の で す 。 そ の 理由 は BASIC 
の INKEY$ 関 数 は キー 入力 を 一 時 的 に 保持 し て いる キー ボー ド バ ッ ファ 領域 を 直接 参 
照 に 行っ て いる た めで す 。 そ こ で ここ で は キー ボー ド バ ッ ファ の 取り 扱い を トレ ー ニ ン 
ググ) 陣 放 みる こと と し ます > 


520) (00502) 
eg) (00503) 


ヘッ ド ・ ポ イン タ …0520H 
一 図 4422 キー バッ ファ 概念 図 


さて 、 キ ー ポ ボー ド バ ッ ファ と いっ て も 特別 な メモ リ が ある わけ で は あり ませ ん 。PC- 
9801 で は シス テム 共通 の RAM メモ リ 中 の セグ メン ト 0000H 、 オ フ セ ッ ト 0502H 一 
0521H の 32 バイ ト が それ に 割り 当て られ て いま す 。 格 納 さ れる キー コー ド は 押下 され 
た キー の 位置 を 示す 1 バイ ト と 、 シ フト 制御 を 含む 1 バイ ト の 計 2 バイ ト て で 構成 され 
て いま す 。 し た が っ て 、 バ ッ プ ファ 内 に は 最大 16 文字 まで 著 え る こと が で きま す 。 
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この 32 バイ ト は 図 4-2 の よう に 、 環 状 の バッ ファ に エン ドレ ス と な っ て いま す 。 つ 
まり 、00502H か ら 始 まっ て 00521H まで が つなが っ て いま す 。 と は いっ て も 、 実 物 が 
こう な っ て いる の で は あり ませ ん 。 あ くま で も 概念 と し て こう な っ て いる だ け で す 。 

この よう な 環状 の 構造 に な っ て いる と 、 読 み 出 すべ き 文 字 列 の 最初 の 文字 と 終わ り の 
文字 が どれ だ か わか ら な く な っ て し まい ます 。 そ こ で 、 オ フ セ モット 00524 一 529H の 6 
バイ ト に 、 こ の キー ボー ド バ ッ ファ を 管理 する た め の 各 種 ポ イン タ を 格納 し て いま す 。 
つま り 、 キ ー ボ ー ド バッ ファ か ら の 読み 出し は これ ら ポ イン タ を 参照 し な が ら 行 われ る 
の で す 。 ポ イン タ は 次 の 3 つ で す 。 
ヘッ ド ポ イン タ (00524,5H) 

次 に 読み 出さ れる キー デー タ の 格納 位置 を 示す 。 
テイ ルポ イン タ (00526,7H) 

次 に 押さ きれ た キー デー タ の コー ド が 格納 され る アド レス を 示す 。 つ まり 、 格 納 文字 列 
の 最後 の 位置 の ひと つ 後 を 示す 。 
バッ ファ カウ ンタ (00528,9H) 

バッ プ ァ 内 に 格納 され て いる キー デー タ の 個数 を 記憶 する 。 

この 情報 を も と に 作っ た プロ グラ ム が リス ト 4-3 で す 。 こ の プロ グラ ム で は 適当 な 回 
数 キ 一 入力 し 、 そ れ を キー バッ ファ に た め て お いて その 内 容 を 画面 表示 し ます 。 変数 の 
それ ぞ れ は リス ト を 参考 し て いた だ く と し て プロ グラ ム の 内 容 を 見 て み ま し ょ う 。 


圏 リス ト 4-3 
1: program LTST4_3: 
の 2 
3: Uses 
4: Crt 。 Dos: 
に 
6: var 
7: data : array[1..32] of integer:{ キ ー バ ッ プ ファ } 
に regS : Reg1sters: 
9:  a,an,n,ec : char: {作業 用 文字 変数 } 
10: 。b,c,d,e,,1 :1nteger: {作業 用 整数 変数 } 
11: taiL,head,kba : integer: {キー バッ ファ ポイ ンタ } 
12: dumy : integer: 
いん 
14: begin 
15: repeat 
16: 
3 regs. ax:=$0300: 
18: Tntr($18 ,regs) : { キー バッ ファ 初期 化 } 
9 
20 : kba:=$502: あー パパ ツア チャ た ドレ スナ 
y 1 CLrScr: 


22: GoToXY(15,10): 
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23 : 
24 : 
25: 
26 : 
27 : 
28: 
9^ 
Gt 
きま ? 
人 
38: 
34 : 
35: 
36 : 
-37 : 
38 : 
39: 
40: 
41: 
42: 
43: 
44 : 
45 : 
46 : 
47: 
48: 
49: 
50 : 
51: 
52 : 
も 9 
54: 
55 : 
56: 
57・ 
58: 
59: 
60: 
61 : 
に と 
63.: 
64: 
65: 
66 : 
67 : 
68: 
69: 
70: 
7 ま ? 
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WriteLn(〉 適当 な キー を どれ で も 押し て くだ さい 。 う ): 


GoToXY(15,12) : 
DeLay(10000) : {この 間 に キ ー を 押す } 
for i:=1 to 32 do 
begin 
data [i] : =mem[0000 : kba] : 
Tnc(kba) : 
end : 


head : =memw [0000 :$0524] : 
taiL : =memw [0000 :$0526] : 


CLrScr: 

GoToXY(15,8) : 

WriteLn(?〉 希望 する 表示 の 番号 を 選ん で 下さ い ! う : 
GoToXY(15,10) : 
WriteLn(?1. キー バ ッ フ ァ の 一 部 を 表示 う : 
GoToXY(15,11) : 

WriteLn(?2. す べ て の キー バッ ファ を 表示 う ): 
GoToXY(15,13) : 


Write() ど ちら で すか ?: 2): 


repeat HH 2 の 肉 連 
GoToXY(24,13) : 
n := ReadKe7y: 

untiL (n = 12) or (nm = 2!22): 


case n of 
71) : begin 
repeat 
repeat 


CLYScrs 

WriteLn(?head : ',head) : 
WriteLn(?taiL、: 7,taiL) : 

Write(: 何 番 目 の 内 容 で すか 1 -9? : りう: 


ec := ReadKey: { ここ は read(ec) : で は ダメ 


untiL, (1?$<$=ec) and (ec$<$=?9〉) : 


{ ヘッ ド ポ イン タ ・ ア ドレ ス } 
{ テイ ルポ イン タ ・ ア ドレ ス } 


vaL(ec, e, dumy): 人 文字 数 字 変 換 $Ncdots$ e : 


WriteLn : 
1 := e$*$2-1: 


GoToXY(7,7): 


Write(?Number  ',?Character  ?,?ASCTT code 


ぅ 


{ キー バッ ファ か ら 配 列 へ の 読み 込み } 


ec -$30 } 


人 を 2. ここ が キー 入力 の 溜り 場 


4 2Key Code ?): 
73: GoToXY(8,9) : 

74 : Write(?No 〉,e): 

0 

76: GoToXY(19,9) : 

パ 

78: if data[i] =32 then 

79: Write(?sp?) 

80 : eLse if data[i] =27 then 

81 : Write(?Esc?) 

82: eLse if data[i]=13 then 

83: Write(?CR〉) 

84 : eLse 

85: begin 

86: GoToXY(19,9): 

87: WriteLn(Chr(data [ ュ ] ) ) : 
88: end : 

89: 

90: GoToXY(29,9) : 

91 : WriteLn(?[),data[i] うう: 

に 4 

93: GoToXY(40,9) : 

94 : WriteLn(?[),data[i+1] 」!] 2) : 
95: WriteLn : 

96 : 

97 : GoToXY(9,12) : 

98: Write(' も う 一 度 キ ー バ ッ フ ァ を 表示 し ます か ? y/n : 
99: 

100: an := ReadKey 

101 : untiL. (an =2n〉) -or (an =》N〉) : 
102: 

108: WriteLn : 

104: endSi、 も (WE まま 

105: 

106: ?27: begin 

107 : CLrScr: 

108: GoToXY(5,4): 

109: WriteLn(?head : ',head) : 

re GoToXY(5,5): 

1 電 WriteLn(?taiL : ),taiL) : 

12 C:=9: 

113: GoToXY(7,7): 

114 : Write(?Number  ?,?Character  ?,?2ASCTT code ), 
115* ?Key Code ?): 
116: for e:=1 to 16 do 

117: begin 

まき > 1 :=e$*$2-1 : 

119: GoToXY(8,<c) : 


120 : Write(?No !,e): 
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ま ウ 1・ GoToXY(19,c) : 

シル 

まき : if data[i] =32 then 

124 : Write(?sp? ) 

125 : eLse if data[i] =27 then 
126 : Write(?Esc?) 

表 妥 7 eLse if data[i]=13 then 
128: Write(?CR?) 

129 : eLse 

130 : begin 

1 GoToXY(19,c) : 

2: Write(Chr(data[i] ) ) : 
133: end : 

134 : 

135 : GoToXY(29,c) : 

136 : Write(?[?,data[i] うう : 
137: GoToXY(40,c) : 

138: WriteLn(?[),data[i+1] )] う ) : 
139: inc(c): 

140: end : 

141: end : 

142: end: { of case 

143: 

144 : Write(? も う 一 度 始め か ら や り ま すか ?  y/n : うう: 
145 : an := ReadKe7: 

146 : untiL (an=2n〉) or (an=〉N〉) : 

147: end. 


この プロ グラ ム は 15 行 目 の repeat と 146 行 目 の until の 間 を 繰り 返す よう に な っ 
て いま す 。17 行 目 は キー ボー ド バ ッ ファ を 初期 化す る た め の BIOS コー ル で す 。 こ の 
BIOS コー ル に よっ て キー ボー ド バ ッ ファ は むろ ん の こと 、 あ ら ゆ る キー ボー ド に 関す 
る 情報 が クリ ア さ れ ま す 。26 行 目 は キー 入力 する た め に 10 秒間 待つ と ころ で す 。 も っ 
と も パソ コン の 機種 に よっ て は Delay 関数 の 値 を 書き 換え な けれ ば な り ま せん 。 

ここ で キー を どれ で も ガチ ャ ガチ ャ と 押し て も らい ます 。 むろん 画面 に は 押し た キー 
の 文字 、 つ まり エコ ー は 表示 され ませ ん が キー の コー ド は キー バッ ファ に 蓄え られ ま 
す 。Delay の 代わ り に Read(a) や ReadLn(a) で キー 入力 を 読ま せる と 、 ヘ ッ ド と テイ 
ル の ポイ ンタ の 値 が 同じ に な り ま すか ら 、 確 か め て くだ さい 。 つ まり 、 こ の よう に 変更 
する と 入力 は CR で 切ら れ ま すか ら 、 次 の 入力 用 に ヘッ ド と テイ ル を 同じ に し て 、「 ま 
だ 入力 が な い 」 状 態 で キー 入力 を 待つ わけ で す 。 

34 、35 行 目 で ヘッ ド と テイ ルポ イン タ を メモ リ を 直接 アク セス し て 取り 出し て いま 
す 。 こ の 2 つの 差 が キー を 押し た 回 数 と いう こと に な り ま す 。 こ れ 以 降 の プロ グラ ム の 
残り の 部 分 は すべ て の キー バッ ファ を 表示 する 部 分 と 、 指 定 さ れ た 位置 の デー タ を 表示 
する 部 分 で で き て いま す 。 こ こ は い わ ば 結果 の 表示 だ け の 間 題 で 、 キ ー バ ッ フ ァ の 使用 
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法 と は 関係 あり ませ ん 。 リ スト 内 の 書き 込み を 参照 し て も ら え ば 、 説 明 は 必要 な いで 
し ょ う 。 た だ 、68 行 目 で 配列 data [i] の i を 奇数 に し て いる と ころ だ け 注 意 し て くだ 
さい 。 こ れ は 奇数 側 に アス キー コー ド が 、 偶 数 側 に キー コー ド が 入っ て いる か ら で す 。 
この プロ グラ ム を 走ら せ た ら 日 本 語 フ ロン ト エ ンド プロ セッ サ で 漢字 を 入力 し て みて 
くだ さい 。 た と えば 、 ロ ー マ 字 漢字 変換 を 使っ た ATOK6 だ と 、「 亜 」 を 入力 する に は 
A を タイ プ し て スペ ー ス キー で 変換 し ます 。 こ れ で リタ ー ン キー を 押下 し て 入力 し て み 
る と 、 キ ー バ ッ フ ァ に は アス キー 文字 の A と スペ ー ス 、 つ まり キー 入力 その も の が 入っ 
て いま す 。「 亜 」 の シフ ト JIS コー ド が キー バッ ファ に 入れ られ わけ で は な いこ と が わ 
か り ま す 。 こ の こと は 日 本 語 フ ロン ト エ ンド プロ セッ サ が MS-DOS の デバ イス ・ ド ラ 
イ バ を 使用 し て 日 本 語 入 力 を 行っ て いる こと に より ます 。 こ う 見 て くる と アス キー コー 
ド だ け な ら まだ し も 、 漢 字 入 力 まで 正確 に 取り 扱え る INKEY$ 関 数 を 作る の は 簡単 で 
は な いと いう . こ と に な り ま す 。 

と は いえ 、 こ れ で キー バッ ファ か ら の 押下 キー コー ド の 読み 取り 方 が わか っ た で し ょ 
う 。 そ れ を 利用 すれ ば お も し ろ い プロ グラ ム が 開発 で きそう で す 。 ぜ ひい ろ い ろ 試 し て 
みて くだ さい 。 


ユニ ッ ト を つく る 
4 一 3m 制 限 時 間 付き キー 入力 

こん ど は ちょ っ と 趣向 (?) を 変え て 、 あ る 指定 時 間 内 に キー 入力 が あっ た か どう か を 
調べ る プロ グラ ム を 作っ て み ま し ょ う 。 む ろ ん 、 た だ 調べ る だ け で は な く 入 力 が あっ た 
と き に は それ が な ん だ っ た か を 取得 で き な く て は 意味 が あり ませ ん 。 

ここ で は トレ ー ニ ング を か ね て 時 間 制 限 付き の 関数 を 自作 ニニ ッ ト と し て 開発 し ま 
す 。 ま ず 、 大 き な プ ログ ラム を 作る た め の 基 礎 知識 と し て 大 切な ユニ ッ ト 機 能 に つい て 、 
復習 を か ね て 解説 する こと に し ます 。 

ユニ ッ ト の 基本 的 構造 と 組み 立て 方 は 次 の よう に な っ て いま す 。 


unit ユニ ッ ト 名 (1) 

interface (2) 

uses 使用 さき れる ユニ ッ ト 名 (3) 
2 パブ リッ ク 宣 言 (3⑭) 
implementation (5) 

uses 使用 きれ る ユニ ッ ト 名 (6) 
プラ イベ ー ト 宣言 (⑦) 

手続 き 、 関 数 の 記述 (8) 

begin (9) 
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初期 化 記述 (10) 
end. (1) 


各部 分 に 付け た 番号 に し た が っ て 説明 し て お きま す 。 

(1)unit ユニ ッ ト 名 

ここ に は その ユニ ッ ト に つけ る 名 称 を 書き ます 。Pascal の program 宣言 と 同じ も の 
と 考え て よい で し ょ う 。 混乱 を 避け る 意味 で 、 そ の ユニ ッ ト を 記述 し た TURBO Pascal 
の ソー スコ ー ド ・ フ ァイル と 同じ 名 称 に する の が 普通 で す 。 た と えば 、edit.pas と いう 
ソー スコ ー ド ・ フ ァイル 名 で ユニ ッ ト を 作る の な ら ば 、 ユ ニッ ト 名 も edit と し て お き 
ま 少 。 

(2)interface 

これ に 引き 続い て この ユニ ッ ト の イン タフ ェ ー ス 部 が 宣言 きれ ます 。 い っ た ん コン パパ 
イル が 終了 すれ ば この ユニ ッ ト は どの プロ グラ ム か ら も その 名 前 を uses 分 で 宣言 すれ 
ば 使え を ます 。 し か し 、 プ ログ ラム か ら は この イン タフ ェ ー ス 部 で 宣言 され て いる 部 分 し 
か ユニ ッ ト の 内 部 を 知る こと は で きま せん 。 具体 的 に は 外部 か ら は ユニ ッ ト を 作っ た 人 
が 使用 者 に 対し て 公開 (( パ や ブリック ) に する 必要 の ある 定数 や 変数 、 デ ー タ 型 や 手続 き 、 
関数 し か 知る こと が で き な い の で す 。 こ の よう に 意図 的 に 外部 か ら ユ ニッ ト の 内 部 を 隠 
せま すか ら 、 非 常に 便利 で 商品 性 を 持つ よう な ユニ ッ ト を 開発 する こと も 可能 に な り 
ま 事 。 
(3)uses 使用 され る ユニ ッ ト 名 

ある ユニ ッ ト が 他 の ユニ ッ ト を 使用 する と き に は ここ に 宣言 し ます 。 こ こ で 宣言 され 
た 他 の ユニ ッ ト も 当然 イン タフ ェ ー ス 部 を 持っ て いて 、 定 数 、 変 数 、 デ ー タ 型 を 公開 し 
て いま す 。 そ れ が この ユニ ッ ト の イン タフ ェ ー ス 部 で 宣言 され て いる の と 同じ こと に な 
り ま す 。 
(4) パプ リッ ク 宣 言 

ユニ ッ ト の 外部 か ら 参 照 で きる 部 分 を 宣言 し ます 。 つ まり 、 こ こ が イ ンタ フェ ー ス 部 
の 実体 で 、 定 数 、 変 数 、 デ ー タ 型 、 関 数 、 手 続き を 宣言 する と ころ で す 。 
(5)implementation 

ここ か ら 下 に その ユニ ッ ト の 本 体 を 記述 し ます 。 こ の 記述 は 外部 か ら は 見 えな い 、 つ 
まり 参照 する こと は で き な い 非 公開 (プラ イベ ー ト ) の 部 分 に な り ま す 。 
(6)uses 使用 きれ る ユニ ッ ト 名 

この ユニ ッ ト で プラ イベ ー ト に 使用 3 れる ユニ ッ ト 名 を 宣言 し ます 。 外 部 か ら は この 
ユニ ッ ト が 他 に どの よう な ユニ ッ ト を 使用 し て いる の か を 知る こと は で きま せん 。 
(7) プラ イベ ー ト 宣言 
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ここ に は その ユニ ッ ト 特 有 の 定数 、 変 数 、 デ ー タ 型 を 宣言 し ます 。 こ れ も 当 然 非 公開 
で すか ら 、 ユ ニッ ト の 外 か ら ど の よう な も の が 宣言 さき れ て いる の か 知る こと は で きま 
せん 。 

(8) 手続 き 、 関 数 の 記述 

ここ に は イン タフ ェ ー ス 部 で 外部 か ら 参 照 可能 と し た 関数 、 手 続き を 記述 する こと は 
当然 で す が 、 さ ら に この ユニ ッ ト 内 だ け で 使用 きれ る まっ た く 非 公開 の 関数 、 手 続き を 
記述 する こと も あり ます 。 イ ンタ フェ ー ス 部 で 宣言 され た 関数 、 手 続き は その 名 称 を 宣 
言 す る だ け で か まい ませ ん 。 た と えば 、 イ ンタ フェ ー ス 部 に 、 


function Triang1e(w,h : rea1): 
procedure AngleCoord(var ang1 ,ang2 : 1nteger) : 


と 宣言 し て あれ ば 、 こ こ で は 単に 、 


function Triangle: 
procedure AngleCoord: 


と する だ け で よい の で す 。 

当然 の こと で す が 、 こ の ユニ ッ ト 内 だ け で 使用 きれ る まっ た く 非 公開 、 つ まり イン タ 
フェ ー ス 部 に 宣言 の な い 関数 、 手 続き は この よう な 省略 は で きま せん 。 普 通 の 関数 、 手 
続き の 規則 に 従っ て fanction ある い は procedure 文 か ら 始 め て フル に 記述 し な けれ ば 
0 まん 
(9)begin 

ユニ ッ ト が 実際 に 使用 きれ る に 先立っ て ある 特定 の 変数 を 初期 化し て お きた いと き に 
必要 で す 。 ユ ニッ ト は 本 質 的 に は 関数 と 手続 き の 集合 で すか ら 、 実 行 さ れる 以前 に 何ら 
か の 初期 化 を 行う こと は 不可 能 で す 。 そ れ を どう し て も し た いと き に これ を 利用 する の 
KW 
(10) 初期 化 記述 

ここ に 実際 の 初期 化 の 内 容 を 記述 し ます 。 書 き 方 は 普通 の Pascal の プロ グラ ム と 変 
わり ませ ん 。 この ユニ ッ ト を 使用 し て いる プロ グラ ム 本 体 は 他 に も ユニ ッ ト を 使用 し て 
いる 可能 性 が あり ます 。 そ の と き に は プロ グラ ム 本 体 の uses で 宣言 され た 順序 で 各 ユ 
ニッ ト の 初期 化 が 行わ ん ます 。 こ の 初期 化 は プロ グラ ム 本 体 の 実行 に 先立っ て 行わ れ ま 
すか ら 、 十 分 注意 し て 作ら な いと 原因 不明 の バグ が 生ま れ た り し ます 。 
(11)end. 

この end は (9) の begin に 対応 し て いる よう に 思い が ち で す が 、 実 は (5) の imple- 
mentation に 対応 し て いる も の で 、 プ ライ ベー ト 部 分 の 記述 の 終了 を 示す も の で す 。 し 
た が っ て 、 初 期 化 の 部 分 が な い 場 合 に は 、 
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unit Reidai : 

1mplementation 

関数 、 手 続き の 記述 


end: 
end . 


と な り ま す 。Pascal の 大 原則 で は begin と end は 1 対 1 に 対応 し て 、 複 数 の 文 (ステ ー 
トメ ント ) を その 対 で は さむ こと で し た か ら 、 最 後 の end は 字 余 り (?) に な り 、 お か し 
な 印象 を 与え を ます 。 も っ と も 、 本 来 の Pascal に は ユニ ッ ト な ど と いう 概念 は な い の で 
すか ら end の 意味 も 崩れ て 当然 か も 知れ ませ ん 。 こ こま で の 知識 で リス ト 4-4A を 見 て 
くだ さい 。 


回 リス ト 4-4A 
: unit LTST4_4A: 


: {時 間 制 限 付き 読み 込み スズ ニット} 
interface 


Procedure TimedRead( var S : String: TimeLim : integer) : 


oO ココ の の の 必 の いい は 


10: impLementation 
12: Uses Dos: 
14: procedure TimedRead( Yar S : String: TimeLim : nteger) : 


16: { TimeLim は 時 間 制 限 の 秒 数 。1 か ら 59 まで の 値 を と り 、 そ の 秒 数 
17: 間 入 力 を 待ち も 、 こ の 間 入 力 が な な か っ た 場合 、 入 力 値 と し て NuL を 返す 。} 


19: const 

20: CR = ^M:t 改 行 の コー ド CtrL-M} 
21:  NUL = ^@:+ 無 入力 の コー ド CtrL-@} 
ピア 

23: var 

24 : GetUut : booLean: 

25: Now, {現在 時 刻 } 


26: TimeUp : integer: {終了 時 刻 } 
27: Regs : Registers: 
28: ch : char: 


30: function ReadDosSecs : integer : 
31: {て シス テム クロ ッ ク か ら 秒 を 読み 取る 。} 


ーー 
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に 
39: 
34 : 
1 
36 : 
37: 
38 : 
39: 
40: 
41: 
42: 
43: 
44 : 
45: 
46: 
47 : 
48: 
49: 
50: 
51 : 
52: 
53: 
54 : 
55: 
56: 
に Y 頑 
58: 
59: 
60: 
61 : 
62: 
| 
64 : 
65: 
66 : 
67: 
68: 
69: 
70: 
放 
リア 
比 96 
74: 
75: 
76: 
まあ 
78: 
79: 
80: 


Var 


Regs : RegisterSs: 


begin 


with Regs do 

begin 
AX := $2C00: 
MsDos (Regs) : 
ReadDosSecs := Hi(DX) : 


begin{TimeRead body} 


if not(TimeLim in [1..59] ) then 
begin 

ReadLn(S) : 

EXx ュ 1t: 
end: 


Now := ReadDosSecs : 
TimeUp := Now + TimeLim: 


if TimeUp >= 60 then 
TimeUP := TimeUp -60: 

に dL、 答 koK、 

Getout := FALSE: 


repeat 
{ キー ボー ド (コン ソー ル ) か ら の 入力 を チェ ッ ク し 、 入 力 さ れ た 文字 は 
AL レジ スタ に 格納 され る 。} 


Regs.AX := $0600: 
Regs .DX := Lo($OFF): 
MsDos(Regs) : 


出 


ch := Chr(Lo(Regs .AX) ) : 
case ch of 
NUL : { 時間 内 に 入力 が な い 場 合 } 
if ReadDosSecs = TimeUp then 
begin 
S := NUL: 
GetUut := TRUE: 
end : 


GR { 入力 は あっ た が リタ ー ン キー の み が 押 され た ) } 
GetUut := TRUE: 


eLse { 有効 な 文字 入力 が あっ た 。 入力 文 字 を 連結 する } 


62 CTAP7PRI244 キー ボー ド 回 り 


に 0 begin 

82: Write(ch) : 

83: if Length(s) < (Size0f(s) -1) then 
84 : 放 3 生生 で 語 : 
85: end : 

86 : end : 

に 7 人 1 

88 : untiL GetUut : 

89: WriteLn : 

90: end: 

91: {No InitiaLization+ 

92: end. 


1 行 目 で この ユニ ッ ト の 名 称 を LIST4.4A と し て いま す 。 し た が っ て 、 こ の ユニ ッ ト 
を ディ スク 上 に コン パイ ル し た 結果 は LIST4.4A.JTPU と し て 作ら れ ま す 。 そ れ は それ 
で か まわ な い の で す が 、 本 来 は を の ユニ ッ ト が 何だ っ た の か が わか る よう な 名 称 に すべ 
き で すま な の 人 9 は TRBAD な ど と すべ き で し ょ う 。 そう で な いと 、 ' が と で ご の ユエ 
ニッ ト を 他 に 流用 し よう と する と 、 は て 何だ っ た の だ ろう か と わか ら な く な り ま す 。 

この ユニ ッ ト は 7 行 目 の 手続 き TimeRead だ けし か あり ませ ん 。 引 数 は キー ボー ド 
か ら 入 力 さ れ た 文字 列 S と 時 間 制 限 秒 数 TimeLinn で す 。 制限 秒 数 は 1 一 59 秒 で す 。 
それ 以外 の 制限 秒 数 を TimeLim に 指定 する と 、 手 続き TimeRead は 単なる 標準 関数 
ReadLn と 同じ 動作 し か し ませ ん 。 

プロ グラ ム の 記述 は 12 行 目 か ら で す 。12 行 目 で 後 で MS-DOS の ファ ンク ショ ンコ ー 
ル を 使用 し ます か ら Dos ユニ ッ ト の 使用 宣言 を し て お きま す 。 

14 行 目 か ら 手 続き TimeRead の 実際 の 記述 が 始ま り ま す 。20 、21 行 目 で お か し な 
^M と ^@ が で て きま す 。 こ れ は アス キー コー ド で 改行 を 表す 13 が CtrlLM で ある こと 、 
また ヌル 文字 を 表す 00 が Ctrl.Q で ある こと か らき て いま す 。TURBO Pascal で は Ctrl 
文字 を その まま 定数 と し て プロ グラ ム 内 部 で 使 を る の で す 。 そ れ ぞ れ の Ctrl 文字 が 確か 
に 13 と 00 に な っ て いる こと は 先ほど 開発 し た リス ト 4-2 で 確か め る こと が で きま す 。 

23 28 行 目 の 変数 定義 の 中 に ある GetOut は この 制限 時 間 内 に な に か 入力 が あっ た 
か 、 そ れ と も 何 も な く て 制限 時 間 が 経過 し て し まっ た と き に TRUE に な り ま す 。 つ ま 
り 、 こ の 関数 か ら 外 に 出 て 行く べき か どう か を 表す 論理 変数 で す 。 

30 行 目 の 関 数 ReadDosSecs は MS-DOS の ファ ンク ショ ン ・ コ ー ル を 利用 し て 、 呼 
ば れ た と き の 時 刻 を 読み 出し 時 分 秒 の うち 秒 だ け を 正 数 値 と し て 返し ます 。 こ の 関数 は 
interface 部 で 宣言 され て いま せん 。 し た が っ て 、 こ の ユニ ッ ト の 外部 か ら 参 照 す る こと 
は で きま せん 。 こ の ユニ ッ ト を uses 文 で 使う 別 プ ログ ラム は 、 あ くま で も interface 部 
で 公開 され て いる 手続 き TimeRead し か 使う こと が で き な い わけ で す 。 つ まり 、 手 続 
き TimeRead は パブ リッ ク 、 関 数 ReadDosSecs は プラ イベ ー ト な の で す 。 

39 行 目 で A レジ スタ に 時 刻 読 み 出し の セッ ト を し て 、40 行 目 で ファ ンク ショ ン ・ コ ー 
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ル を し ます 。 そ の 結果 と し て D レジ スタ の 上 位 1 バイ ト に 返さ れ た 時 刻 の 秒 を この 関 
数 値 と し ます 。 

手続 き TimeRead の 実質 部 が 45 行 目 か ら 始ま り ま す 。4346 行 目 で 制限 秒 数 TimeLim 
が 1 一 59 の 間 に あ る か を 調べ 、 そ う で な けれ ば 47 50 行 目 で 単なる ReadLn で 読み 
込み だ け を 行い 、Exit に より この 手続 きか ら 外 に 出 ま す 。346 行 目の下 文 は then 節 し 
か 持た ず 、else 節 が あり ませ ん 。 そ れ は Exit に より 外 に 出る よう に し て いる か ら で す 。 
Exit を 使わ な いと 52 行 目 以下 を else 節 に し な けれ ば な り ま せん 。 そ の 理由 は みな さん 
で ちょ よっ と 考え て みて で てく 害さ い 

52 行 目 で 現在 時 刻 の 秒 値 を 取り 出し 、53 行 目 で 制限 秒 数 を それ に 加え て 制限 時 刻 の 
秒 値 を 作り ます 。 そ の 値 TimeUp が 60 を 越え を て いる と き に は 55、6 行 目 で 60 を 引い 
て お きま す 。 ち ょ っ と 見 る と 、 今 12 時 34 分 56 秒 だ と する と 、 そ こ か ら 20 秒 入 力 を 待 
つと する と TimeLim が 20 で すか ら 、TimeUp は 16 に な り ま す 。 そ うな る と 20 秒 で 
は な く 16 秒 し か 待っ て くれ な く な る よう な 気 が し ます 。 

と ころ が 、 こ こ で は ReadDosSecs で 時 刻 の 秒 値 し か 読み ませ ん か ら 、20 秒 後 の 12 
時 35 分 16 秒 の 時 の 秒 値 16 が TimeUp で よい の で す 。 こ れ は TimeLim を 1 一 59 に 
制限 し て いる お か げ で す 。 む ろ ん ち ょ っ と 改良 すれ ば 停電 さき を た な けれ ば 何 分 後 、 い や 何 
日 後 ま で 入力 を 待ち 続け る プロ グラ ム を 書く こと も で きま す 。 し か し 、 一 般 的 に は 実質 
的 に 1 分 間 で ある 59 秒間 あれ ば よい で し ょ う 。 試 し に 画面 を 前 に し て 1 分間 待っ て み 
て くだ さい 。1 分 間 が か な り 長 い 時 間 で ある こと が わか る と 思い ます 。 

57 、58 行 目 で 入力 文字 を 空 に し て 、 こ の 手続 きか ら 外 へ 出る の を 制御 する 論理 変数 
GetOut を 初期 化し て お きま す 。 

キー 入力 が ある か 制限 時 間 が 経過 し て し て し まう まで 60 - 88 行 目 を 繰り 返し ます 。 
64 一 68 行 目 で MS-DOS の ファ ンク ショ ン ・ コ ー ル に より キー ボー ド か ら の 入力 を チェ ッ 
ク し 、 入 力 つ まり キー の 押下 が あっ た ら そ の 文字 を 変数 ch に 取り 込み ます 。 

69 - 85 行 目 の case 文 で は ファ ンク ショ ン ・ コ ー ル で 得 ら れ た 文字 に より それ に 応じ 
た 処理 を し ます 。70 行 目 は ch が 空 、 つ まり NUL 、Ctrl-@ で ある #00 の 場合 で す 。 こ 
れ は キー 押下 が な いと き で す 。71 行 目 で 制限 秒 数 に な っ た か どう か を 知ら せれ ば 、 な っ 
て いた ら 入 力 文字 s と し て 空 を 返し ます 。 そ れ ま で に な に を 入力 し て いて も 制限 秒 数 が 
経過 し て し まう と s は 空 に な り ま す 。 

77 行 目 は ch が 改行 (CR) の 場合 で す 。 押 下 キ ー が 改行 で あっ た と いう こと は 入力 が 
終了 し た こと を 意味 し ます か ら 、GetOut を TRUE に し て 繰り 返し か ら 外 に 出 ます 。 

80 行 目 の else 節 は 改行 キー 以外 の キー 押下 が あっ た 場合 で す 。82 行 目 で その キー 文 
字 を 表示 し 、83 行 目 で s の 最大 長 127 文字 を 超え な い 限 り ch を 次 々 に s に つけ 加え 
索 

この ユニ ッ ト で 定義 する 手続 き TimeRead は 90 行 目 で 終わ り で す 。 こ の 後ろ か ら 最 
後 の end 部 まで は ユニ ッ ト が 他 の プロ グラ ム に 結び 付け られ た と き に 最初 に 初期 化し 
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て お くべ きこ と が あれ ば それ を 書き ます 。 こ こ で は 必要 あり ませ ん 。 

この ユニ ッ ト を TURBO Pascal で コン パイ ル し ます 。 そ の と き に Compile オプ ショ 
ン を memory で は な く disk に し て お か な けれ ば な り ま せん 。 コ ン パ イル が 終了 し た ら 
カレ ント ディ レク トリ 上 に LIST4_4A.TPU が 作ら れ て いる こと を 確認 し て くだ さい 。 

も う 一 つ 注 意 が あり ます 。 それ は ユニ ッ ト 名 、 識別 名 は program の 後ろ に 書く 識別 名 同 
様 に Pascal の 規則 に 従う と いう こと で す 。 た と えば 、LIST4-4A の よう に 間 に マ イナ ス 
記号 を 入れ た り し て は いけ ませ ん 。 し か し 、 そ の ソー ス フ ァ イル 名 と し て LIST4-4A.PAS 
の よう に する の は MS-DOS の 規則 か ら 許 され ます 。 

と ころ が これ を コン パイ ル す る と LIST4-4A.TPU が 作ら れ ま す 。 そ うな る と この ユ 
ニッ ト を 使用 する プロ グラ ム は uses 文 に LIST4-4A と 書く こと に な り ま す 。 こ れ は 
TURBO Pascal で ユニ ッ ト 識 別名 と し て 許さ れ ま せん か ら 、 そ の プロ グラ ム の コン パ 
イル 時 に エラ ー と な っ て し まい ます 。 こ れ を 注意 し な いと TPU ファ イル が ディ スク 上 
に 確か に ある に も か か わら ず 使 用 で き な い こと に な り 、 つ ま ら な いこ と が 原因 で 仕事 に 
手間 取り ます 。 


圏 リス ト 4-4B 
1: program LTST4_4B: 
2: 
3: uSes 
4: LTST4_4A: 
に が 
6: const 
7: TIMELIMIT = 30:{ 例 と し て 制限 時 間 30 秒 } 
8: 
9: Var 
10: anSWer : Str1ngj 
4 
12: begin { main } 
she WriteLn(TIMELIMTT,〉 秒間 で 次 の 質問 に 答え て 下さ い 。 う ): 
14: Write(' アメ リカ 合衆国 の 首都 は ? う : 
15: 
16: TimedRead( answer , TIMELTMTT) : 
中 すく 
18: if answer = "Washington D.C.' then 
19 : WriteLn(〉 正解 ! その と うり 1!)) 
20 : 
23 : eLse 
22: if answer = Chr(O) then 
23: WriteLn(^g~g,) 時 間切 れ で す 。! )) {ブザー を 警告 } 
24 : 
25 : eLse 
26 : WriteLn() まち が いで す ! 答 は "Washington D.C." で す 。 う ): 


27: end. 
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リス ト 4-4B は この ユニ ッ ト を 使用 し て アメ リカ 合衆国 の 首都 を あて させ る クイ ズ を 
作っ た 例 で す 。7 行 目 で 制限 秒 数 と し て 30 秒 を 定数 で 設定 し て いま す 。 ま ず 13 、14 行 
目 で 問題 を 出し ます 。16 行 目 で 答え answer と 制限 時 間 TIMELIMIT を 引数 と し て い 
ま 作 っ た ユニ ッ ト の 手続 き TimeRead を 呼び 出し ます 。 こ こ で は 手続 き TimeRead の 
素性 (?) が よく わか っ て いる か らい いよ うな も の で す が 、 引 数 に 定数 を 使う こと は あま 
りや ら な い ほ う が よ きそう で す 。 呼び出し た 手続 き の 中 で 書き 換え られ て し まう 危険 性 
が ある か ら で す 。 そ し て 定数 だ と 思っ て いた ら 知 ら な いう ち に 中 身 が 変わ っ て いた な ど 
と いう デバ ッ グ で 発見 し に くい 誤り が 発生 し ます 。 

18 一 26 行 目 は 正解 、 誤 答 、 時 間切 れ の 場合 に 応じ た 処理 で す 。 入 力 中 に 誤り を 直 そ 
うと バッ クス ペー ス す る と それ も 変数 answer の 文字 列 と し て 取り 込ま れ て し まい ます 
か ら 、 正 解 を 入力 し て も 1 回 で 誤り な く 入 力 し な けれ ば な り ま せん 。 

そん な きび し い 条 件 に 加え て 、Washington だ け で は 正解 で な く D.C. を 忘れ る の は 
大 目 に みて ほし いと ころ で す が 、 こ こ で は TimeRead の デモ と いう こと で まあ よい と 
思い ます 。23 行 目 の ^g は ブザー 鳴動 の コー ド で す 。 こ れ を 画面 表示 する と 文字 が 表示 
され る 代わ り に ブザー が 鳴る よう に MS-DOS で 取り 決め らち れ て いる た めで す 。 

ここ で は まず ユニ ッ ト に つい て 解説 し まし た 。 ユ ニッ ト を 利用 すれ ば interface だ け 
を 公開 し て 、 こ の ユニ ッ ト の 中 に 入っ て いる 手続 き 関 数 は こん な 機能 だ と いう 説明 を 加 
えて お け ば 、 ソ ー ス コー ド で は な く TPU ファ イル だ け で 他 の ひと も 使え る わけ で す 。 
つま り 、 ソ ー ス コー ド を 公開 せ ず に 便利 な ツー ル を 商品 化 で きま す 。 

ソー スコ ー ド を 公開 する と 、 プ ログ ラム 開発 の テク ニッ ク 、 ノ ウ ハ ウ を 知ら れ て し ま 
う の で 、 ソ フト ハウ ス は ソー スコ ー ド を 厳密 に 管理 し て いま す 。 し た が っ て 、 こ ん な 
ツー ル が あれ ば TURBO Pascal で プロ グラ ム 開 発 が 楽 に な る の に と いう ツー ル を 作っ 
て も 公開 ・ 発 売 で き な か っ た の で す 。 と ころ が ユニ ッ ト 機 能 に より TPU ファ イル と し 
て 商品 化す れ ば 、 ど う や っ て ある 手続 き や 関 数 を つく っ で いる の か を 知ら れる こと が な 
く な り ま す 。 

さて 、 最 後に ここ で 開発 し た 手続 き TimeRead で す が 、 こ れ は 前 に も いい まし た が 
最終 的 な も の と 思わ な いで くだ さい 。 こ れ を 改良 し て も っ と すぐ れ た 手続 き に 変え る こ 
と は 可能 で す 。 ま た は 自分 が 開発 する アプ リケーション 向け に 改造 する の も よい で し ょ 
う 。 た と えば 、CAI(Computer Assisted Instruction : 教育 用 ソフ トウ ェ ア ) で 、 練 習 問 
題 に 対す る 制限 時 間 に 使う な どの 例 が 思い 浮か び ま す 。 意外 と お も し ろ い 応用 が ある か 
も じ れ ま せん 。 
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ファ イル を 使う 


TURBO Pascal で プロ グラ ム を 作り な が ら 、TURBO Pascal の 強力 な ファ イル 関係 
の 処理 機能 を 使わ ず に いつ も 画面 表示 や 印刷 出力 で 結果 を 保存 し て いま せん か 。 

ファ イル 処理 は 慣れ て し まえ ば と て も 便利 な の で す が 、 科 学 計算 や グラ フィ ックス 
の 表示 な ど に TURBO Pascal を 使っ て いる と 、 そ ちら の 使用 法 を 勉強 する の が 精 い っ 
ぱい で ファ イル の 勉強 まで 正直 いっ て 手 が 回 り ま せん 。 し か し 、 い つま で も それ で は 
TURBO Pascal を フル に 活用 する こと は で きま せん 。 そ こ で 、 こ の 章 で は ファ イル 処理 
の トレ ー ニ ング を や っ て み ま す 。 こ の 章 の プロ グラ ム を 自分 で 作り 、 さ ら に それ を 改造 
し て 動作 を 確か め れ ば 、 フ ァイル 処理 が 案外 簡単 で 便利 な こと が 理解 で きる は ず で す 。 
この 章 で は 単なる トレ ー ニ ング 用 の ファ イル 処理 で は な く 実 用 的 に も 役に立つ サン 
プル ・ プ ログ ラム を 開発 し て いま す 。 初め に ファ イル の 中 身 を の ぞい て みる ファ イル ダ 
ンプ 、 テ キス ト ・ レ コー ド の ソー ティ ング 、BASIC ファ イル の 変換 を 開発 し ます 。 そ 
し て 、 デ ィ ス ク の 中 身 が 変わ っ て いな いか どう か を 調べ る チェ ッ ク と ラン ダム ・ フ ァ イ 
ル の 取り 扱い を トレ ー ニ ング し ます 。 最 後に 標準 の MS-DOS に は 入っ て いな い フ ィ ア 
ル 表 示 用 の 外部 コマ ンド を 試作 し て み ま す 。 こ こ で は ある 特定 の 日 付 以 降 作 成 ・ 更 新 さ 
れ だ た ファ イル を 表示 する コマ ンド を プロ グラ ミン グ し て み ま す 。TURBO Pascal の マ 
ニュ アル に は テキ スト ・ フ ァイル の 取り 扱い な どの 説明 が あり ます が 、 こ の 説明 だ け で 
は よく わか ら な いこ と が 結構 あり ます 。 ま た 、 出 力 装 置 、 つ まり プリ ンタ か 画面 か 、 ま 
た は RS-232C か な どの 設定 法 も 出力 用 の ファ イル と まっ た く 同 じ に 取り 扱え る こと も 
例題 が な な けれ ば ピン と こない で し ょ う 。 


まず は 復習 か ら 
5 一 1m フ ァイル ダン プ 

ファ イル の 内 容 を その まま 画面 表示 する プロ グラ ム は MS-DOS の ユー ティ リティ に 
も あり ます し 、 そ の ほか に も 多少 ブログ ラム 開発 を する 人 な ら フ ァイル ダン プ の ソフ ト 
は PDS な どか ら 手 に 入れ て 持っ て いる で し ょ う 。 し か し 、 そ の プロ グラ ム は 一 体 どう 
や っ て ファ イル の 中 身 を 読み だ し て いる の か を 知っ て いる 人 は 少な いと 思い ます 。 確か 
に 、 フ ァイル を オー プン し て 1 レコ ー ド ずつ 読ん で くれ ば ぱ ば よい の に は 違い あり ませ ん 


9 と た 
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が 、 具 体 的 な TURBO Pascal の プロ グラ ム と し て は どう や れ ば よい の で し ょ うか 。 
リス ト 5-1 が ファ イル ダン プ を TURBO Pascal で や る プロ グラ ム で す 。 


10 


行 目 の 定数 MAX_BYTE は 読み 込ん だ ファ イル の 内 容 を 保持 し て お くだ た め の バ ッ 


ファ の 大 き さ で す 。 バ ッ フ ァ と は 入出 力 デ ー タ を 一 時 的 に 記 境 し て お く 場 所 で す 。 そ の 


大 き 
ド で 


〇 CO ココ の の 内 の 〇 DO は 


さ は 0 一 8191 まで で すか ら 、256H( = 8192) 個 、 つ まり 、128 バイ ト 単 位 の レコ ー 
64 個 分 に な り ま す 。 


圏 リ スト 5-1 
: Program LTST5_1: 
: Uses Crt: 
: tYpe 
Str14 = string[14] : 
: const 
JHYTD_ 32 ="32: 
MAX_BYTE = 8191: 
: Var 
in_fiLe :f1Le: {入力 ファ イル +} 
ch ebar 5 AP 東 だ 人 は 6 は 
out_dev : text : {出力 ファ イル (装置 ) } 
fiLename 2 8 あま ドガ ダ デイ ツレ 者 
fiLe_image : array[O..MAX_BYTE] of byte:{ フ ァイル 内 容 } 
totaL_screen , { 総 画面 数 } 
{画面 カウ ンタ } 
disp_num , {表示 カウ ンタ } 
disp_rec, { 既 表 示 画 面 数 } 
Left_rec  : integer :{ 未 表示 画面 数 } 
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procedure Buffer_FLush :1 フ ァイル ・ イ メー ジ 初 期 化 } 
Yar 
counter : integer : 


begin {すべ て 0 と する } 
For counter := O to MAX_BYTE do 
fiLe_image[ counter ] :=0O : 
end: 人 { procedure Buffer_FLush 守 


ロ 玉 玉 玉 来 玉 玉 玉 来 玉 米 米 玉 来 玉 玉 玉 玉 玉 素 玉 玉 米 米 玉 玉 玉 玉 玉 玉 米 玉 玉 玉 玉 米 玉 玉 玉 来 玉 玉 玉 玉 玉 来 来 玉 来 玉 来 来 


function Found(fiLename : Str14) : booLean:{ 指 定 フ ァイル 存在 チェ ッ ク } 
Var 
nmT1 も 6 すす Le 


68 


40: 
41: 
42 : 
43: 
44 : 
45 : 
46 : 
47 : 
48: 
49: 
50: 
6 
5 交 : 
5 
54 : 
55: 
56 : 
57: 
58: 
59: 
60: 
61 : 
62: 
63: 
64: 
65: 
66: 
67 : 
68: 
69: 
4 
I た 時 
が 
が 
74: 
Zb・ 
76: 
1 
78: 
79: 
80: 
81 : 
82: 
83 : 
84 : 
85: 
86 : 
87 : 
88: 
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begin 
Assign(infiLe ,f1Lename) : 
{$1-+ 
Reset(infiLe) : {ファ イル - オ ー プ ン }+ 
{$1+} 


Found := (ioresuLt=O) : {存在 すれ ば TRUE} 
end: 人 { function Found } 
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procedure Hex_Disp(n:integer) :tn の 16 進 表 示 } 
var 
a,b :integer: {16 進数 各 桁 } 
chs :string[16] :{16 進 表示 用 文字 列 + 


begin 
chs := 0123456789ABCDEF' : 
a := Trunc(n/16) : 
b := n - a*16: 


if (a >=0) and (a <=15) then {上 位 バ イト } 
Write(out_dev,chs [a+1] ) 

eLse 
Write(out_dev,??2) : 


if (b >=0) and (b <=15) then {下位 バイ ト } 
Write(out_dev,chs [b+1] ) 
eLse 


Write(out_dev,??2) : 


Write(out_dev,) う ): 
end: { procedure Hex_Disp + 


玉 玉 玉 来 玉 玉 玉 玉 玉 来 玉 玉 米 米 米 玉 素 玉 玉 六 玉 米 玉 玉 玉 玉 玉 米 玉 玉 玉 玉 玉 米 米 米 玉 玉 玉 米 米 米 玉 玉 玉 来 玉 米 米 玉 玉 十 


procedure Dump_Dispit 画 面 表示 } 


Yar 
まま 3 馬 。30 。 {カウ ンタ + 
offset :integeri{ 表 示 先 頭 バ イト 数 } 
begin 
Cl1rScr: {見 出し の 表示 + 
WriteLn(out_dey,) ?:15,2FiLe Name : ',fiLename, 


だ 二 を も 3 テ 。 

k+1+disp_num*(BYTE_32 div 2) , 

2 of ) ,totalL_Screen) : 
WriteLn(out_det) : 


の 7. 


89: 
90: 
は 
92 : 
93: 
94 : 
95: 
96: 
97 : 
98: 
99: 
100: 
101 : 
102: 
103: 
104: 
105: 
106: 
107 : 
108: 
109: 
110: 
本 まま 
ます 2 
1.134 
114: 
115: 
116: 
人 人 
bh 
119: 
120 : 
21 
2 つい 
123: 
124 : 
125: 
126 : 
ドイ] 
128 : 
129: 
305 
131 : 
8 の: 
33: 
134 : 
195: 
196: 
437: 
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WriteLn(out_dev, UEfset?。) ):24, 
2HexadecimaL 7 ,) ?:25,) ASCTT〉 ) : 
WriteLnr( out_deV , ? ーーーーーー 2 
生 toiwo 和 ュー フク ーー3ー= 人 ーー5ーー6ーー7 ニ ュ 8rrm 全 っ コル ューB コ 7 ょ 
ミコ =ーー ア ェ 0123456789ABCDEF'?) : 
WriteLn(out_deu) : 


fori :=0to15 do 
begin 
L := k*256+ ュ *16: 
offset := disp_num*256+L : 
Write(out_dev,L:5,” 9 
{16 進 表示 } 


for ] :=0to 15 do 
begin 
n := offset+]: 
Hex_Disp(Ord(fiLe_image [n] ) ) : 
end: {for ] + 


Write(out_dev,) う )): 
{アス キー 表示 } 
for ] := 0O to 15 do 
begin 
nm := offset+]: 
m := Urd(fiLe_image [n] ) : 


if m > 127 then 
m := m-128: 


if (m > 31) and (m <127) then 
Write(out_dev, chr(m) )t ア スキ ー 文 字 } 
eLse 
Write(out_dev,? 〉): {て 非 ア スキ ー 文 字 } 
end: {for ] 


WriteLn(out_der) : 
end: { for 1 
end: { procedure Dump_Disp 


玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 来 玉 玉 玉 米 米 玉 玉 玉 玉 玉 米 玉 玉 玉 米 玉 玉 玉 玉 玉 玉 玉 来 玉 玉 玉 玉 玉 玉 来 玉 玉 玉 玉 玉 玉 玉 玉 玉 来 


begin { main 
Buffer_FLush: {初期 化 } 
C1rScr : 


repeat{ フ ァイル 名 入力 } 
Write(? FiLe to Hex Dump -> 〉): ReadLn(fiLename) : 
until, Found(fiLename) or (Length(fiLename)=0) : 
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198: 

139: if Length(fiLename)=0O then HaLt: {ファ イル が 空 } 
140: 

141 : Assign(in_fiLe ,f1Lename) : 

142 : Reset(in_fiLe) : 

143: 

144 : Write(〉 Dutput to (P)rinter/(C)onsoLe -> )): 
145: 

146 : repeat 

147 : ReadLn(ch){ 出 力 装 置 指定 } 

148: untiL. UpCase(ch) in [7P7 2C 旨 : 

149: 

150: if UpCase(ch) = ?C? then 

154: Assign(out_dev, CDN' ) 

152 : eLse 5 

153: Assign(out_dey,?PRN? ) : 

154 : 

155: rewr1te(out_der) : 

156 : 

MY Left_rec := fiLesize(in_fiLLe) : 

158: 

159 : if odd(Left_rec) then{ 総 表示 画面 数 } 

160: totaL_screen := (Left_rec div 2) +1 

161 : eLse 

162 : totaL_screen := Left _rec div 2: 

163: 

164: disp_num := 0: 

165: 

166: whiLe Left_rec > O do{ 表 示 開 始 } 

167 : begin 

168: if BYTE_32 <= Left_rec then 

169: disp_rec := BYTE_32 

170: eLse 

171 : disp_rec := Left_rec: {ファ イル 末尾 } 

人 よ 浅 誠 。 

173: B1ockRead(in_fiLe,fiLe_image,d1sp_rec) : 
174: 

175: for k := 0 to ((disp_rec-1) div 2) do 
176: begin 

すず: Dump_D1 sp : 

178: WriteLn : 

179: Write(〉 ?:6,?<< Press < く ESC> to Exit), 
180 : ) or Any DUther Key to Continue >>〉) : 
181 : ch := ReadKey: 

182 : 

183 : if Ord(ch)=27 then HaLt: {ESC キー 押下 } 
184 : end: {for k 

185 : 

186 : disp_num := disDp_num+1 : 


5-7. まず は 復習 か ら 71 


187 : Left_rec := Left_rec-d1SD_r@eC: 
188: end: { whiLe remainig 

189: 

190 : WriteLn(out_der) : 

191 : WriteLn(out_dev, End of Process?) : 


192。 end. { main 


FiLe Name : b:koblist.exe 申せ: 7 @ に 3Y 
Offset HexadecimaL RSCII 
ーー や" ーー-1 --2--3--4--5--6--7ー-8--9-- 昌 --B--C-D--EーF- 9g123456789RBCDEF 
g 4D 5a 1991 139 7 静 21 81 94 81R4B1 92 【「 } ! $1 
16 gg 49 99d gdBD93 喝 1C9 gd 5699W99 全 = U 
32 65 Mg99996FM749d998RW 喝 9 e o tt 
48 8F gg99 上 949d MR6g 99WOE99W99 衣 ・ cy 
64 Bg99d9999C299g9C79 喝 記 999d 9 B G L 
89 D3 9999E79g Mg 喝 FE9999 9891 喝 9 S g “ご 
96 98 91 99d99d179g92B919993591 葛 99 トー 
112 43 91 9999d5291g 喝 5C919gg6191 免 9 C R \ a 
128 7C919992C891gWE9919959 の 2 要 9 「 H i 
144 13 92 9@99d2992 喝 晃 2D929d322 の 2 喝 99 テ m: 拉 
169 37 92 9999539299961929@ 6E92g99 7 S ag n 
176 7B 922 9999d8992 喝 859 の 29dWOO の 2g99 ( 
192 EEO929999BB92g9C89299 喝 CO の の 999 . jj H M 
298 D2 9@2 9999E792gMF4929d9193g  R g t 
224 96 93 99d999B93g 喝 CO9329d WC の 93W9 の 9 ⑳ E 
249 CF93999dE193g9EB939dMF993g9@ 0 a k p 
<< Press <ESC> to Exit or Rnu Other Ke to Continue >> 


圏 図 5-1 

図 5-1 が リス ト 5-1 を 表示 きせ た と き の 画 面 の 様子 で す 。 

26 一 33 行 目 の Buffer_Flush 出 続き は 配列 と し て と っ た 256H 個 の バッ ファ 、 Hle_-image 
を 0 に 初期 化し ます 。 

37 一 48 行 目 の Found 手続 き は 引数 色 ename で 指定 され た ファ イル が 存在 する か ど 
うか を 調べ る た め の 関 数 で す 。 そ の 名 前 の ファ イル が 存在 すれ ば TRUE 、 し な けれ ば 
FALSE を 返し ます 。 こ の 関数 は 存在 し な い フ ァイル の ダン プ を 取 ろ うと し た と き に そ 
れ を 止め させ る た め に 必要 で す 。 メ イン プロ グラ ム の 137 行 目 で 存在 する ファ イル 名 
か どう か を 判定 する と き に 使い ます 。43 行 目 で { 呈 ー } に し て 、 再 び 45 行 目 で { 十 
} に する の は 、 存 在 し な い フ ァイル 名 を 入力 され た と き に 、44 行 目 の Reset 手続 き が 
失敗 し て TURBO Pascal の 1/O エラ ー で 強制 的 に プロ グラ ム を 終了 され て し まう の を 
防止 する た め の 定 石 で す 。 も し も 名 ename に 該当 する ファ イル が 存在 し な いと き に は 
ioresult に エラ ー 番 号 が 自動 的 に TURBO Pascal か ら 入 れ ら れ ま す 。 ioresult が 0 だ と 
ファ イル が 存在 し た こと に な り ま す 。 
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52 一 73 行 目 の Hex_Disp 手続 き は 1 バイ ト 、 つ まり 16 ビッ ト で 表 さ れる 整数 n の 
上 位 と 下位 の 8 ビッ ト を 16 進数 で 表示 する た め の も の で す 。 も し も 、 上 位 ま た は 下位 
が 15(FH) を 越え を る よう な こと が あっ た ら 、? マ ー ク を 表示 し ます 。 こ の 手続 き は と て 
も 利用 価値 が あり ます 。 特 に メモ リ の 中 身 を の ぞい て みる よう な プロ グラ ム に 表示 用 と 
し て 流用 で きそう で す 。 し か し 、 そ の 目的 に は 00 一 FEF まで の 文字 を 関数 の 中 で 表示 
せ ず 、 そ の まま 引数 と し て 返す よう に 改造 し た ほう が 使い や すい で し ょ う 。 

77 一 127 行 目 の 少々 長い 手続 き Dump_Disp は file_image の 内 容 を 表示 し ます 。 こ の 
よう に メイ ンプ ログ ラム に 入れ て も いい よう な プロ グラ ム で も 手続 き に すれ ば 、 メ イ 
ンプ ログ ラム の 論理 的 構造 が ずっ と すっ きり し ます 。94 行 目 まで は ダン プ 結 果 を 見 や 
すく する た め の 見 出し の 遇 力 で す 。96 行 目 の i は 表示 の 行 、L は 列 で す 。disp_num は 
256 個 表 示す る か た まり と し て ファ イル を 切っ た と き の 何 個 目 を 表示 する か を 示す 変数 
で す 。disp_num は メイ ンプ ログ ラム の 164 行 目 で 初期 値 が 0 に セッ ト さ れ て いま す 。 
103 行 目 か ら 16 進数 で ファ イル の 内 容 を 表示 し 、111 行 目 か ら そ れ に 対応 する アス キー 
コー ド を 表示 し ます 。 

メイ ンプ ログ ラム は 131 行 目 か ら 始 まり ます 。 ま ず 始 め に その 内 容 を 16 進数 で ダン 
プ し た い フ ァイル 名 を 入力 する と ころ で す 。 も し 、 存 在 し な い フ ァイル 名 を 入力 する と 
135 一 7 行 目 の ルー プ で 何 度 も 問い 直し て きま す 。[CR] だ け 入 力 する と 旬 ename が 空 
に な り ま すか ら 、139 行 目 で Halt に より MS-DOS に 戻り ます 。 読 み 込 ん だ falename 
は inile に し て 、 ダ ンプ 結果 を 表示 する ファ イル を out_dev に し ます 。 こ の out_-dev が 
CON な ら コ ン ソ ー ル (キーボード と CRT ディ スプ レイ ) 、PRN な ら プ リン タ と まっ た 
く フ ァイル と 同じ よう に 取り 扱え ます 。 

リス ト の 始め に 戻っ て 13 行 目 を 見 る と 、in_fle は 型 な し (アンタ イプ ト ) ファ イル と 
し て 定義 きれ て いま す 。 つ ま り 、 変 数 型 と し て ie の み で 、 そ れ に 続く of 以下 が 省略 
され て いま す 。 こ の 場合 は ディ スク ファ イル の 内 部 書式 に か か わら ず ア クセ ス す る こと 
が で きま す 。 フ ァイル は 128 バイ ト 単 位 で 区 切っ て 取り 扱わ れ ま す 。 一 方 、out_div の 
ほう は テキ スト の 出力 、 つ まり テキ スト ファ イル で すか ら 変 数 型 と し て text を 指定 し 
ます 。 

146 行 で 出力 装置 と し て C 〇 な ら コ ン ソ ー ル 、P な ら プ リン タ と いう こと に な り ま す 。 
148 行 目 の 判 定 で 入力 され た 文字 が 大 文字 で も 小文字 で も よい よう に UpCase 関数 を 
使っ て いま す 。 こ れ は 文字 入力 で な に か を 選ば せる と き に し ょ っ ちゅ う 使 う テ クニ ッ ク 
で 赦 4 
157 行 目 の Left rec に は ダン プ す べき ファ イル の 要素 数 が 入り ます 。 Left rec は FileSize 
関数 の 定義 か ら は longint で ある べき な の で す が 、 こ こ で は テス ト 用 と し て 小さ な ファ 
イル の ダン プ し か や り ま せん の で 22 行 目 で integer 型 と し て いま す 。1 要素 は 128 バ 
イト に な り ま す 。 一 度 に 表示 する バイ ト 数 は 256 バイ ト に し た の で 、159 一 162 行 目 で 
total_screen が 表示 すべ き 画 面 枚数 に な る わけ で す 。 
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166 一 188 行 は 32 X 128 = 4096 バイ ト 単 位 で ファ イル を 読む た め の 処理 で す 。 
BlockRead は 一 度 に 読み 込む バイ ト 数 が 多い ほど 効率 的 に な り ま す 。 フ ァイル の 最後 
の は ほう な ど で 4096 バイ ト で は ファ イル の 終わ り を 越え た て し まう と いう と き に は 171 行 
目 で 残り だ け を 読む せよ うに し て いま す 。 

175 一 184 行 目 は 4096 バイ ト 読 め た と き 、 つ まり BYTE_32 が 32 の と き に は 4096 
ュ ェ 16 三 256 バイ ト を 表示 し て いま す 。256 パイ ト に 足ら ず に ファ イル が 終っ て し まっ 
た と き に は 、 の こり の 部 分 に は buffer を 初期 化し た と き の 0 が 表示 され ます 。 


ファ イル の 素早 い ソ ー ト に は 

5-2 ョ テキ スト レコ ー ド の ソー ト 

ファ イル 内 の レコ ー ド の ある 項目 に 着目 し て 並び 換え を する ソー ティ ング は ビジ ネ 

ス ・ ア プリ ケー ショ ン に 欠か せま せん 。 パ ソコ ン が 普及 する 以前 に 大 型 の コン ピュ ー タ 

し か な か っ た 時 代 か ら 、 い か に 高速 に ソー ト す る か は いろ いろ な 研究 が な され て いま す 

し 、 ソ ー テ ィング の 方 法論 は 専門 の 書籍 に 必ず いく つか 紹介 され て いま す 。 
| ここ で は ソー ティ ング 自体 が 目的 で は な く 、 フ ァイル 処理 を トレ ー ニ ング する こと が 
目的 で すか ら 、 ど の ソー ティ ング が 優れ て いる か な ど に つい て は 解説 し ませ ん 。 こ こ で 
取り 扱う ファ イル は テキ スト ファ イル で す 。 テ キス ト フ ァイル は 普通 の ファ イル と は 異 
な り 、 文 字 が 基本 要素 で す 。 し た が っ て 、 各 レコ ー ド は [ CR] / [LE ] (改行 と 行 送 
り ) で 切ら れ て お り 、 フ ァイル の 最後 は ^z で 終り ます 。 ま た 、 テ キス ト フ ァイル に 対し 
「 て は 入出 力 を 同時 に 行う こと は で きま せん し 、 シ ー ケ ン シ ャ ル な 処理 し か で き な い の 
「 で 、 非 常に 制約 が 多い と いえ ます 。 ま た 、Seek 、Flush 、Filepos 、Filesize な ども 使え 
に 「 

し か し 、 テ キス ト フ ァイル に は すばらし い 利 点 が あり ます 。 そ れ は エディ タ で 直接 
デー タ を 作成 し た り 修 正 し た り で きる こと で す 。TURBO Pascal で 書い た プロ グラ ム 
に 対す る 入力 用 の ファ イル な ど を ちょ っ と 修正 する と き な ど この 性 質 は と て も 役に立ち 
ます 。 ま た 、 エ ディ タ が 使え る こと は 出力 ファ イル を 他 の 目的 に 使う た め 加工 する の に 
も 便利 だ と いう こと で す 。 

「 さき て 、 こ こ で ファ イル の ソー ト を プロ グラ ミン グ す る の で す が 、 ひ と つ 問 題 が あり ま 
す 。 そ れ は ワー プロ ・ ソ フト で 作っ た 住所 録 な ど は 2 バイ ト で 表 さ れる 日 本 語 を 使っ て 
' いる こと で す 。 た と えば 、 で た ら め な 順序 で 並ん で いる 名 筐 を アイ ウエ オ 順 に 整理 する 
と し ます 。 英語 な ら ア ルフ ァ ベ ッ ト で すか ら 、 ま ず 1 バイ ト 目 の 英字 を アス キー コー ド 
| 。 順に 並べ ます 。 と ころ が 、 私 の 名 字 の 小林 だ と 「 こ 」 で は な く 、「 し ょ う 」 の 読み の ほ 
う に 入れ られ ます 。 ま し て 、「 東 」( あ ず ま ) さん と 「 東 田 」( ひ が し だ ) さん に な る と 同 
じ 東 の と ころ に 入れ られ て し まい ます 。 そ こ で ヒラ ガ ナ の アス キー 文字 を 「 読 み 」 と し 
て レコ ー ド の 中 に 入れ 、 そ れ を ソー ト す る こと を 考え ます 。 そ れ で も 、「 茶 谷 」( ち ゃ た 
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に ) さん が 「 近 田 」( ち か だ ) さん より 前 に きま て し まい ます 。「 ャ 」 の ほう が 「 カ 」 よ り も 
アス キー コー ド で は 前 に ある た めで す 。 結 局 、 日 本 語 を アイ ウエ オ 順 に ソー ト す る こと 
は ひと すじ な わ で は いか な いよ う で す 。 ど う も アス キー コー ド を 決め る と き の 方 法 が そ 
こま で 配慮 し て いな か っ た が 原因 と いえ そう で す 。 む ろ ん 、 促 音 や 擁 音 や 、 油 点 、 半 渦 
点 の 処理 も 考え て ソー ト プ ロ グラ ム を 作れ ば よい の で す が 、 そ れ は ここ で の ファ イル 処 
理 の トレ ー ニ ング と いう 主題 か ら そ れ て し まい ます 。 
そこ で 、 こ こ で は どの よう に テキ スト ファ イル を 処理 する の か の 例 を 示す た め 、 ア ス 
キャ ー 凛 字 を スト レー た ツー する お けり に し ま も た 。 サス ト よ を 2 が デ グ テ ラム で す 。 プ 
ログ ラム 中 の 変数 の 主 な も の の 意味 は リス ト 中 の 書き 込み を 参考 に し て くだ さい 。 


0 ココ の の 必 の OND は は 


: Program LIST5_2: 


: Uses 
CTt : 
const 
LTNE_FEED : char = #$0a: バ {1 ラ イン フィ ー ド コー ド } 
Var 


input_Line,{ キ ーー 入力} 

in_fiLename,{ ソ ー ト ファ イル 名 } 

out_fiLename : string[14] :1 ソ ー ト 出力 ファ イル 名 } 
fieLd1 , 

fieLd2 : string[12] :{ キ ー 入 力作 業 変数 } 


origin_fiLe , 人 [ソート フ ァイル } 
sorted_fiLe  : text:{ ソ ー ト 出力 ファ イル } 


fiLe_image  : array[1..32700] of char:{ フ ァイル 内 容 } 
Tec_num , 

rec_PoS : array[1..5000] of integer:{ ソ ー ト 用 ポイ ンタ } 
char_num , 

char_pos : array[1..10] of integer: て ポイ ンタ 用 作業 変数 } 
ch1 , ch2 : char:{ ソ ー ト 作業 文字 変数 } 


key_Length,{ キ ー 長 } 

key_num,{ キ ー 個 数 } 

key_PoSs1 , 

key_pos2,{ キ ー 位 置 } 
nth_key,tn 番 目 入力 キー} 
rec_totaL,{ 総 レコ ー ド 数 } 

EEg tt ソー トラフ ラッ クト 

ij,k,L,np : ntegeri 和 {作業 用 カウ ンタ } 


圏 リス ト 5-2 


5-2. ファ イル の 素早 い ソ ー ト に は 


36: 
⑨7 : 
に > 誠 
39: 
40: 
41: 
42 : 
43: 
44: 
45: 
46 : 
47 : 
48: 
49: 
50: 
邊 5 
に 
53: 
54: 
55: 
56 : 
57: 
58: 
59: 
60: 
9 
62 : 
63: 
64: 
65: 
66: な 
: {ファ イル 内 容 を メモ リ に 写す } 
68: 
69: 
0* 
の 
(と 介 
7 は 
74: 
75: 
4 
かす 
78: 
た 
80 : 
81 : 
82 : 
83: 
84: 


67 


begin 


CLrScr: 
WriteLn(〉 Text Sort Program' ) : 
人 WaR( * ミ ャ ニ ニー ニコニ ーー ニー ニニ エー ニー ニー ニーー の 
repeat 
WriteLm : 
Write(?Enter Tnput FiLe Name -->)) : 
ReadLn(input_Line) : 
if Length(input_Line) = 0O then begin {入力 な し } 
WriteLn: WriteLn(?end sort〉) 
HaLt : 
end : 
for i := 1 to Length(input_Line ) 
do input_Line[i] := UpCase(input_Line [1] ) : 


if Pos(?.? input_Line) = Othen {拡張 子 指定 な し } 
input_Line := Concat(input_Line, .txt)) :{ デ フォ ー ル ト } 


in_fiLename := input_Line: 
Assign(origin_fiLe,in_fiLename) : 
{$i-} Reset(origin_fiLe) {$1+}:1 ソ ー ト ファ イル オー プン } 


1 := TUResu1t: 
if ュ <> 0O then 
WriteLn(?UnabLe to open ',in_fiLename , 
> ーー- Check speLLing.”) 
until. 1 = 0j{ オ ー プ ン 成 功 ま で } 


1 := 0: 和 初期 化 } 
村人 ま 
rec_totaL := 0: 


whiLe not EUF(origin_fiLe) do begin 
1:= Succ(1): 
Read(origin_fiLe,fiLe_image[i] ) : 


if fiLe_image[i] = LINE_FEED then begin 
rec_totaL. := Succ(rec_totaL ) : 


rec_num[rec_totaL] := rec_totaL : 
rec_pos [rec_totaL] := ki: 
jk := Succ( ふ ): 

end : 

end : 


CLose(origin_fiLe) :{ 以 下 メ モリ 内 の み で 作業 } 


WriteLn : の 
WriteLn(in_fiLename,: contains ?,rec_totaL.,) records.” ) : 
nth_key := 0: 


WriteLn : 
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85 : 
86 : 
97 
88: 
89: 
90 : 
91 : 
92 : 
93: 
94 : 
95: 
96 : 
97 : 
98: 
99: 


100: 
101 : 
102: 
に 
104 : 
105: 
106: 
107: 
108: 
109: 
110: 
の 
ルル 
1 人 ある 
114 : 
115: 
116: 
を 
118: 
119: 
120 : 
お 23 : 
122 : 
に 
124 : 
25 : 
126 : 
よ 97 : 
128: 
129 : 
130 : 
191 : 
小 呈 2 
3: 
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repeat{ ソ ー ト キー 入力 fie1d1/fie1d2+} 
Write(?sort Key ',nth_key+1,? -->〉): 
ReadLn(input_Line) : 
[ := Length(input_Line) : 


if 上 < く > 0 then begin 
nth_key := nth_key + 1: 
1 := Pos(?/) ,input_Line) : 
fieLd1 := Copy(input_Line , 1 ,1-1) : 
fieLd2 := Copy(input_Line ,1+1 , 葉 - ュ ) : 
VaL(fieLd1 ,char_num[nth_key] ,]}) : 
VaL(fieLd2,char_pos [nth_key] ,}) 
char_pos [nth_key] := Pred(char_pos [nth_key] ) : 
end : 1 


untiL. ([ = 0) or (nth_key = 10): 


if nth_key = 0O then begin{ キ ー 入 力 な し 、 ソ ー ト 中 止 } 
WriteLn: WriteLn(?end sort. No sort performed. 〉 ) : 
HaLt: 

end: 

{ソー ト 開 始 } 

PD *:〒 rec- も ota: 

WriteLn: 

Write()sorting "の "2): 


whiLe (p div 2) <> 0 do begin 
Write() 2)j 人 は ソー ト 進 行 表示 
PD P3QEv12) 
KK":= rec。 も otaL - PD: 
9 挟 Co 介 
(Mr 
repea セ 
の 。 > 


repeat 

n := Succ(n) : 

key_pos1 := rec_pos[rec_num[i] ] + char_pos [n] : 
key_Pos2 := rec_pos [rec_num[L]] + char_pos [n] : 
key_Length := Abs(char_num [n] ) -1 : 

key_num := -1: 


repeat 


を 2 ファ イル の 素 星 い ソー ト に は 


134 : 
$95: 
136 : 
MY 
138: 
139: 
140: 
141 : 
142: 
143: 
144 : 
145: 
146: 
147 : 
148: 
149: 
150: 
154・ 
152: 
5S3: 
154 : 
155: 
156: 
157 : 
158: 
159: 
160 : 
Lcp 
162: 
163: 
164 : 
165: 
166: 
ま 67/ < 
168: 
169: 
170: 
の 
72 
定 7 放 た 
174: 
人 た 人 
上 6 
W 衣 
人 0: 
4 す 7 の: 
180: 
181 : 
182 : 


key_num := Succ(key_num) : 
ch1 := fiLe_image [key_pos1+key_num] : 
ch2 := fiLe_image [key_pos2+key_num] : 


if char_num[n] > 0 
then begin 

if ch1 > ch2 then fLg := 1: 

if ch1 < ch2 then fLg := 2: end 
eLse begin 

if ch2 > ch1 then fLg := 1: 

if ch2 < ch1 then fLg := 2: end: 


untiL. (fLg < く > 0) or (key_num = key_Lengt1) : 
untiL, (fLg <> 0) or (n = nth_key) : 


if (fLg = 0) and (rec_num[i] > rec_num[L] ) 
then fLg := 1: 


if fLg = 1 then begin 


n := rec_num [i] : 
rec_num[i] := rec_num [L] : 
rec_num [上 L] := n: 

Pt 0 
end : 


ut も は おお. (Bbge く >83)508 (まく 3)5 
2 2 5 


untiL ] > Ki: 
end: 
{ソー ト 終 了 } 


WriteLn : 


repeat{ 出 力 フ ァイル 名 指定 } 

WriteLn : 

Write(?Enter Output FiLe Name -->?) : 
ReadLn(input_Line) : 


if Length(input_Line) = 0O then begin 
WriteLn: WriteLn(?END SORT. ', 

2No output fiLe written.〉) : 
HaLt : 
end : 


for i := 1 to Length(input_Line) 


do input_Line [1] := UpCase(input_Line [1] ) : 


if Pos(?.),input_Line) = 0t1( デ フォ ー ル ト } 
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183: then input_Line := Concat(input_Line ,? . も も 〉) : 
184 : 

185: out_fiLename := input_Line: 

186 : Assign(sorted_fiLe ,out_fiLename) : 

187 : {$ ュ 1-} Rewrite(sorted_fiLe) {$ ュ 1+} : 

188: 1 := TOResu]t: 

189: 

190: if i <> 0 then WriteLn(〉unabLe to create ', 
191 : out_fiLename,' 一 - Try again.”): 
192 : untiL 1 = O: 

193 : 

194 : for k := 1 to rec_totaL do begin 

195 : 1 := rec_pos[rec_num[k]] - 1: 

196: 

197 : repeat{ ソ ー ト 結果 出力 } 

198: ュ 1 := Succ(1) 

199: Write(sorted_fiLe ,fiLe_image [] ) : 

200: untiL fiLe_image [1i] = LINE_FEED : 

201 : 

202 : end : 

203: 


204 : CLose(sorted_fiLe) : 
205: WriteLn : 


206: WriteLn(out_fiLename,′ contains ', 

207 rec_totaL, records . ” ) : 
208: WriteLn: WriteLn( END SORT〉) : 

209: end. 


40 一 62 行 ま で は これ か ら の ソー ト の 対象 と な る ファ イル 名 の 入力 で す 。 input_Line 
と いう 文字 変数 に ソー ト 用 ファ イル を 入力 し ます が 、 何 も 入力 せ ず に [CR] を タイ プ す 
る と 44 一 47 行 目 の と ころ で プロ グラ ム の 実行 を 停止 し ます 。49 行 目 で は 入力 が 小 文 
字 で な され た と き に は 、 フ ァイル 名 を 大 文字 に 変換 し ます 。51 行 目 は 入力 され た ソー 
ト 用 の ファ イル 名 が 拡張 子 を 指定 され て いな いと き に 、 自 動 的 に .txt の 拡張 子 を 付加 す 
る も の で す 。 た と えば この リス ト 自 体 を ソー ト の 対象 と する の で あれ ば 、LST5-1.PAS 
と 入力 し ます 。40 行 目 の repeat に 対す る until は 62 行 目 に あり ます 。 こ こま で の 処理 
が 成功 し て も 、 入 力 き され た ファ イル 名 が 存在 し な いと 56 行 目 の Reset で 1/O エラ ー が 
出る の で ioresult が 0 に な ら ず 正しい ファ イル 名 が 入れ られ る まで 繰り 返し ます 。 存在 
する テキ スト ファ イル 名 が 正しく 入力 され る と 、 そ の ファ イル を origin_-fle と し て 56 
行 目 で オー プン する の で す 。 

68 78 行 目 で origin_fle 中 の テキ スト レコ ー ド の 文字 を 改行 と 行 送り も 合 め 配列 
fe_image に し まい ます 。 テ キス ト フ ァイル は その 要素 に 自由 に アク セス で きる よう に 
は な っ て いな い の で 、 ソ ー ト する た め に は 要素 を メモ リ 中 に 入れ て 自由 に 取り 出せ る よ 
うに し て お く 必 要 が あり ます 。 配列 rec mum は レコ ー ド 番号 の ポイ ンタ で 、 ソ ー ト は 
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この ポイ ンタ に つい て 行い ます 。 こ の 段階 で は rec_num に は 1 か ら 総 レコ ー ド 数 が 順 
番 に 入る だ け で す 。72 行 目 で レコ ー ド の 区 切り で ある [LF] を 検出 し ます 。 配列 rec_pos 
に は 旬 e_image に 格納 し た 各 レ コー ド の 文字 が どこ か ら 始 まる か が 入り ます 。 こ うし て 
お か な いと 、 文 字 が ベタ に 刈 e_image 入っ て いる の で 、 ど こ が 各 レコ ー ド 、 つ まり テキ 
スト ファ イル を 構成 し て いる 要素 の 先頭 な の か が わか ら な く な っ て し まう か ら で す 。 

こう し て テキ スト ファ イル の すべ て の 情報 を これ ら の 配列 に 取り 終っ た ら 、 つ まり エ 
ンド オプ ファ イル ・ マ ー ク を 見 つけ た ら 、80 行 目 で 入力 ファ イル を クロ ー ズ し ます 。82 
行 目 で 入力 ファ イル の レコ ー ド 数 を 表示 し ます 。 

ここ まで で 全体 の 1/3 で す 。 ま だ この 先 が だ いぶ ある の で 嫌 に な っ て くる で し ょ う 。 
それ は どう な っ て いる か を 頭 の 中 だ け で 考え て いる と 、 か な り 精 神 的 に スト レス が 生じ 
る か ら な の で す 。 そ れ を 避け る 一 番 よ い 方 法 は 小さ な 例 を 作っ て 具体 的 に この プロ グラ 
ム の 流れ を 追う こと で す 。 そ こ で 、 こ こ で は 簡単 な 例 と し て 、3 つの レコ ー ド を 持つ テ 
キス ト フ ァイル を 例 に し て み ま し ょ う 。 次 の よう な レコ ー ド を 持つ テキ スト ファ イル が 
入 方 ファ ネル だ うた と し も ます 8 


番号 内 容 
1 BBBBBB 
2 CCC 
3 AAAAA 


この よう な テキ スト ファ イル だ と 上 で 出 て きた 配列 は 、 


fi1e_image : BBBBBB [CR] [LF] CCC[CR] [LF] AAAAA 
rec_num 1 
rec_pos  :1 9 14 


の よう に な り ま す 。 こ れ を 例 に と りな が ら あ と の 処理 を 追い か け て み ま し ょ う 。 

86 一 101 行 目 で ソー トキ ー を 入力 し ます 。 入力 の 方 法 は a/b の よう に し ます 。 こ の 
意味 は a 個 の 文字 列 で b 番 目 か ら 始 まる も の を ソー ト す る と いう こと で す 。 で すか ら 、 
始め の 2 個 に 注目 し て ソー ト す る な ら 2/1 と 入力 し ます 。 し た が っ て 、a は テキ スト の 
レコ ー ド の 最短 の も の の 文字 数 を 越え て 入力 する と エラ ー に な り ま す 。 一度 の プロ グラ 
ム 実 行 で 最大 10 種類 の ソー ト 指 定 が 可能 で す 。10 回 ソー ト す る の で な けれ ば 、 途 中 で 
いつ で も [OR] だ け 入 力 す れ ば ソー ト キー の 指定 が 終り ます 。 こ の 段階 で 、3/1 だ け 
を 指定 し た と する と 、 こ の 例 で は 、 


char_num :3 
char_pos ・0 


の それ ぞ れ 1 要素 だ け と な り ま す 。 

98 行 目 で char_pos は 入力 値 か ら 1 だ け 少 な くし て いる こと に 注意 し て くだ さい 。103 
行 目 で まっ た く ソ ー ト キー を 入力 し な か っ た と き を 判定 し て メッ セー ジ を 出し 、 プ ログ 
ラム の 実行 を 停止 し ます 。 
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108 一 164 行 目 が ソー ティ ング の 本 体 で す 。110 行 目 で ソー ト 中 で ある こと を 知ら せ 
る メッ セー ジ を 出し ます 。 メ ッ セ ー ジ の 最後 に ピリ オド が ソー ト 進 行 に 伴っ て 113 行 
目 に より 次 々 に 表示 され ます 。 こ れ に より この プロ グラ ム の ユー ザー に プロ グラ ム が 竣 
走 し て 何 も デ ィ ス プレ イ に 出 な い の で は な く 、 一 生 時 命 (?7) ソー ティ ング 中 で ある こと 
を 知ら せる の で す 。 こ こ で 用 いて いる ソー ト 法 は シェ ル ・ メ ツナ ー 法 と 呼ば れる も の で 
す 。 始 め に も いっ た よう に この 方 法 の 詳細 を 説明 する こと は し ませ ん 。 た だ 、 レ コー ド 
その も の を 操作 する より も 、 各 レコ ー ド を 指す ポイ ンタ を 操作 する ほう が は る か に 高速 
に ソー ト で きる こと は 憶え て お いて くだ さい 。 何 か 大 量 の レコ ー ド を 取り 扱わ な けれ ば 
な ら な いよ うな 場合 が あっ た と き に は 、 非 常に 役立つ テク ニッ ク で す 。 こ の プロ グラ ム 
で は ファ イル の コピ ー で ある fe_image を 入れ 換え たり せ ず に 、 た だ 各 レ コー ド の 位置 
を 示す rec_pos だ け を 入れ 換え て いま す 。 

170 行 目 で 出力 すべ き フ ァイル 名 を 聞い て きま す 。 適当 な 名 称 の ファ イル 名 を 入力 し 
ます 。 こ こ で も 拡張 子 を 省略 する と 、 自 動 的 に .txt が 付け られ ます 。 特に ファ イル と し 
て 取っ て お く の で な けれ ば 、 コ ン ソ ー ル で ある CON を 指定 し ます 。 そ うす る と 、 ソ ー 
ティ ング の 結果 は ディ スプ レイ 画面 に 表示 され ます 。 も し 、 プ リン タ に 印刷 出力 する の 
で あれ ば 、PRN を 指定 し ます 。 

この ソー ト プ ロ グラ ム が いか に 高速 か は 、 こ の プロ グラ ム 自 体 を 入力 ファ イル と し て 
いろ いろ な キー に 対し て ソー ト さ せ て みれ ば わか り ま す 。 こ の ソー ティ ング の 部 分 だ け 
を 取り 出し て ライ ブラ リ に し て お く と 、 ビ ジネス ・ ア プリ ケー ショ ン の 開発 に 便利 で す 。 


DOS さえ 同じ な ら 
5 一 3mBASIC ファ イル の 変換 

BASIO を 長年 使っ て いて 、 こ れ か ら TURBO Pascal に 乗り 換え よう と し た と き に 必 
要 な 作業 は 、BASICO の ソー スコ ー ド を Pascal に 書き 換え る こと と 、 デ ー タ ファ イル を 
書き 直す こと で す 。 ソ ー ス コー ド の 移植 プロ グラ ム は 私 た ち ア マチ ュ ア に は 手 が 出 せ そ 
うに も あり ませ ん が 、 デ ー タ ファ イル の 変換 な ら ど うに か な り そ う で す 。 そ こ で 、 こ こ 
で は Microsoft-BASIC で 作ら れ た ファ イル を TURBO Pascal ファ イル に 変換 し ます 。 

と は いっ て も 、 レ コー ド が アス キー 文字 、 整 数 、 実 数 な ど 色 々 種類 が あり ます か ら 、 
その すべ て に 対応 で きる プロ グラ ム と な る と 簡単 で は あり ませ ん 。 こ こ で 開発 し て み 
る プロ グラ ム は 整数 型 の BASIC ファ イル を TURBO Pascal ファ イル に 変換 する も の 
写 宣 。 

Microsoft-BASIO で は 整数 は 2 バイ ト ず つ ア スキ ー コ ー ド で 表 き され て いま す 。 し た 
が っ て 、 そ れ を 次 々 に 読み 込ん で 、 そ れ を TURBO Pascal の 整数 に 変換 し て ファ イル 
を 作っ て や れ ば よい は ず で す 。 

それ で は 早速 プロ グラ ム を 見 て くだ さい 。 リ スト 5-3 が その プロ グラ ム で す 。332 行 目 
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まで は これ か ら 処 理 対象 と な る BASIC ファ イル 名 、 そ し て 生成 すべ き TURBO Pascal 
ファ イル 名 の 入力 で す 。 こ こ で は ファ イル 操作 に 対す る エラ ー 処 理 を まっ た く や っ て い 
ませ ん 。 も っ と 親切 に 作る の な ら 第 3 章 で トレ ー ニ ング し た 方 法 を 使っ て 、 一 応 デ ィ レ 
クト リ を 表示 し て 既存 の ファ イル を 破壊 し な いよ うに し て あげ だ た ほう が よい で し ょ う 。 


副 リ スト 5-3 
: Program LTST5_3: 


: uSeS Crt: 


1 

ン 

3 

4: 

5: Var 
6: BASIC_name,{BASTIC ファ イル 名 } 
7 

8 


PASCAL_name : string [14] :tPascal ファ イル 名 } 

: 。 PASCAL_fiLe : fiLe of integer:{tPascal ファ イル } 
9: BASTC_fiLe : text:tBASTC ファ イル } 
10: record_image : array [1..500] of integer:{ フ ァイル 内 容 } 
Me : charitBASTC 作業 用 文字 + 
12: Cm,n,D,TeC_num 。 
13:  fLg : integer: 
14 : 
15: Begin 


16: CLrScr: 

17: writeLn(: まず 、BASIC の デー タフ ァイル 名 を ?!, 

18: 1 ンジ 1 Ni7tS298/WS 
19: ReadLn(BASTC_name) : 

20 : WriteLn : 

21: writeLn(〉 次 に 、 デ ー タ の 個数 を ?, 

22: 32 だ 罰 で くだ さい 55 
28: ReadLn(rec_num) : 

24 : WriteLn : 

25: WriteLn(〉 最後 に 新しい PASCAL の デー タフ ァイル 名 ?, 

26 : ちあ 火 及 市 りり 炎 テ ネ を を どう 3 ぞう. 
の の < ReadLn(PASCAL_name) : 

28: Assign(BASTC_fiLe ,BASTC_name) : 

29 : Reset(BASTC_fiLe) : 


305 EE 7 の) 

に n := 1: 

32: 

33: forp := 1 to 500 do{ フ ァイル 内 容 初 期 化 } 
34・ begin 

35: record_image[p] := 0: 
36 : end : 

37 : 

38: repeatt デ ー タ 変換 } 

39: Read(BASIC_fiLe ,a) : 

40: VaL(a,c,m) : 

41: if m=O then 


42 : begin 
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43: も 記 2 

44 : then 

45 : begin 

46 : record_image [n] 

47 : := (record_image [n] * 10) + ci 
48 : fLg := 0: 

49: end 

50: eLse 

51 : begin 

52 : 1 

53: record_1mage[n] := c: 

54 : fLg := O0: 

55 : end : 

56: end : 

73 fLg :=fLg + 1: 

58: untiL eof(BASTC_fiLe) : 

59: 

60 : CLose(BASTC_fiLe) : 

61 : Ass1gn(PASCAL_fiLe ,PASCAL_name) : 

62: Rewrite(PASCAL_fiLe) : 

63: WriteLn : 

64 : WriteLn : 

65: WriteLn('〉 変換 きれ た デー タ は 、 次 の と お り で すう : 
66: W3Bbe( ぷ 村 5 

7 松 for n := 1 to rec_num do 

68: begin 

69: Write(record_image[n],) | う ): 
70: Write(PASCAL_fiLe ,record_image [n] ) : [ 
7 よる end : 「 
72: WriteLn : 

た ル WriteLn: 

74: WriteLn : 

75: Reset(PASCAL_fiLe) : 

76: writeLn(〉 新しい ファ イル の デー タ が 、?, 

KN 次 の と お り で きま じ た り ): 

78: WESEA(C 補 つう 3 

79: for n := 1 to rec_num do 

80: begin 

81 : Read(PASCAL_fiLe ,record_image [n] ) : 

82: Write(record_image[n],) | う ): 

83.: end : 

84 : CLose(PASCAL_fiLe) : 

85: end. 


28 、29 行 目 の Assign と Reset は ファ イル を オー プン する と き の 標 準 的 な 方 法 で す 。 
ここ で は 存在 し な い フ ァイル 名 を 入力 し た と き の 対 策 を 省略 し て あり ます か ら 、1/O エ 
ラー が 発生 する と プロ グラ ム が 停止 し て し まい ます 。 け れ ど も 、 こ の よう な 変換 プロ グ 


ーー 
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ラム は BASIO か ら TURBO Pascal へ 乗り 換え を る と きだ け 一 時 的 に に 必要 と な る も の 
で すか ら 、「 疾 っ た 作り 」 に する 必要 は まっ た く な い は ず で す 。 

30 行 で は まず 読み 初め で すか ら 、 バ イト ポイ ンタ を 0 に 設定 し 、 変 換 結果 を 格納 し 
て お く 配 列 recordimage の イン デック ス (添字 )n を 1 個 目 に し て お きま す 。33 - 36 行 
目 は その 配列 を すべ て 0 に し 、 こ れ で 初期 化 が 終り ます 。38 - 58 行 目 が BASIO の 整 
数 ファ イル の 読み 込み と デー タ 変 換 で す 。 こ こ で 使用 し て いる TURBO Pascal の 標準 
手続 き Val が 出 て きま す 。 

45 行 目 の Val で は 、a と し て 読ん だ アス キー 文字 に 対応 する 対応 する 数 字 デ ー タ が 
な いと き に は m に エラ ー コ ー ド を 帰し ます 。m ニ ニー0 の と き は エラ ー が な か っ た 、 つ ま 
り 読み 込ん だ 文字 a は BASIOC の 整数 デー タ で あっ た こと が わか り ま す 。 

BASIO の 整数 デー タ は 2 文字 読み 込ま れ 、 始 め に 読み 込ま れ た ほう を 10 倍 に し 、 後 
の ほう を その まま に し て 加え 合わ せ て record_image に 入れ ます 。 これ で 変換 は 終わ り 
で す 。 後 は BASICO ファ イル の 終わ り で ある エン ド オ ブフ ァイル ・ マ ー ク (略し て EOE) 
を 読む まで これ を 続け ます 。60 行 目 以下 は record_image を 新しい TURBO Pascal ファ 
イル に 書き 込む だ け で す 。72 - 84 行 は こう し て で きた ファ イル の 内 容 の 画面 表示 で す 。 


之 日 か ら こ れ な し に は いら れ な い 
5 一 4m チ ェ ッ クサ ム 検 査 

最近 は ワー プロ の 普及 で フロ ッ ピ ー が 日 常 生 活 の 中 に よく 使わ れる よう に な り ま し 
た 。 確 か に フロ ッ ピ ー に 文書 を 入れ て お け ば 大 量 の 「 紙 」 を 持ち 歩く 必要 $ も あり ませ 
ん し 、 必 要 に 応じ て 簡単 に 何 度 で も 清書 文書 を つく る こと が で きま す 。 こ の お か げ で 、 
スピ ー デ ィ に きれ いな 文章 が だ れ に で も 作れ る よう に な っ た の で す 。 と ころ が 、 フ ロッ 
ピー に 情報 を し まっ て お く こ と に よる 問題 も あり ます 。 

た と えば 、 フ ロッ ピー を カバ ン の 中 に 入れ 、 そ れ と ウォ ー ク マン の ヘッ ド ホ ン を 一 緒 
に し て お く と フロ ッ ピ ー の 内 容 が 破壊 され て し まい ます 。 ま た 、 ワ ー プ ブロ 入力 の 疲れ 、 
スト レス に 「 効 く 」 と いわ れ て いる 磁気 ネッ クレ ス と か 、 エ レキ バン が フロ ッ ピ ー と ハ 
ンド バッ グ の 中 で 同居 し た り し て も 壊れ て し まい ます 。 た だ し 、 壊 れる と いっ て も 別に 
フロ ッ ピ ー が 破れ た りす る よう な 、 外 見 上 の 形 が 変わ る の で は あり ませ ん 。 フ ロッ ピー 
の 内 部 で 情報 を 記録 し て いる 磁気 パタ ー ン が 乱 さ れ て パソ コン や ワー プロ に 正しい 情報 
を 伝え られ な く な る の で す 。 

私 の 知っ て いる ひど い 例 で は 、 フ ロッ ピー を な くさ な いよ うに と オフ ィ ス の 同僚 が マ 
グ ネ ッ ト 画 夕 で ホワ イト ボード に 貼っ て お いて くれ た と いう の が あり まし た 。 こ れ ほ ど 
極端 な 例 は と に か く 、 こ の よう な 「 破 壊 」 は フロ ッ ピ ー の 外見 か ら は 診断 不能 で す 。 

それ で も ワー プロ の フロ ッ ピ ー な ら 文 書 を 画面 に 表示 し て みれ ば 、「 破 壊 」 の 有無 は 
すぐ に わか り ま す 。 と ころ が プロ グラ ム の よう に 、 中 に 何 が 入っ て いる の か まっ た くわ 
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か ら な いも の は 困り ます 。 そ れ が ソー ス フ ァ イル で あっ た と し て も 、 ソ ー ス ファ イル の 
どこ が 壊さ れ て いる の か を 調べ る こと は 、 プ ログ ラム が 長い と 大 変 に 面倒 な 作業 に な り 
ます 。 さ ら に 困っ た こと に は どれ が 誤り で 、. ど れ が 正しい の か さえ わか ら な い 場 合 も あ 
り ま す 。 

た と えば 、 磁 気 の 影響 で 変数 x が y に 化け 、 し か も プロ グラ ム の な か に y と いう 変数 
が 他 に 使わ れ て いた りす る と 、 私 た ちの 目 で は 絶対 に 見 つか り ま せん 。 お まけ に 、 壊 れ 
て いる 可能 性 の ある プロ グラ ム が 私 達 に は 意味 を 持た な い オ ブ プ ジェ クト ・ フ ァイル だ っ 
た り 、 数値 デー タ お づつ た り し た ら も サナ ど げ び じ よ う も あり ませ ん 。 

この よう な 磁気 的 記録 を と っ て お く 媒 体 の 信頼 性 を 向上 きせ る た め に 考え られ た の 
が 、 こ こ で 紹介 する チェ ッ ク サ ム ・ べ ベリ ファ イ (検査 ) で す 。 こ の テク ニッ ク は 何 も 新 し 
いも の で は な く 、 パ ソコ ン 出 現 以前 の コン ピュ ー タ が ガラス張り の 電子 計算 室 に 入っ て 
いた 時 代 の 磁気 テー プ に 対し て 考案 きれ まし た 。 当 時 は 磁 気 テ ー プ や 磁気 テー プ 記 録 装 
置 の 信頼 性 が 低かっ た の で この よう な 方法 が 必要 だ っ た の で す 。 

し か し 、 現 在 で も 前 述 の よう な 「 磁 気 嵐 (?) 」 が 日 常 的 に あり 、 フ ロッ ピー が それ に 
さら され て いる の で すか ら 、 こ の チェ ッ ク サ ム ・ ベ リフ ァ イ は 役に立ち ます 。 先 日 、 友 
人 か ら プ ログ ラム を 郵便 で 送っ て も ら っ た の で す が 、 ど こ か で 「 何 か 」 が あっ た らし く 、 
動く は ず の プロ グラ ム が 動か な く な っ て いま し た 。 そ ん な と き に も フロ ッ ピ ー に チェ ッ 
クサ ム を 付け て お いて くれ れ ば 、 友 人 が 不 完全 な プロ グラ ム を 送っ た の か 、 フ ロッ ピー 
が 「 変 質 」 し た の か が は っ きり する の で す 。 

さら に 、 い ま は や り の パソ コン 通信 で 友人 と プロ グラ ム や デー タ を や り 取 りす る と き 
に 心配 な の は 、 本 当 に 正しい プロ グラ ム が 送受 信 で きた だ ろう か と いう こと で す 。 モ デ 
ム の 信頼 性 や 、 電 話 回 線 の ノイ ズ の た め に 本 来 の 文字 と は 異な る 文字 が 送受 信 さ れる 
「 文 字 化け 」 と 呼ば れる 現象 が よく お こり ます 。 そ ん な と き に も この チェ ッ ク サ ム ・ べ 
リフ ァ イ は 有効 で す 。 

それ で は 、。 チュ ェ ッ クサ ム ・ ベ べり ファ 人 と は どん な も の な の で し ょ うか 。 ここ ご に フロ ッ 
ピー が 1 枚 あ あと し まし ょ う 。 こ の フロ ッ ピ ー の 中 に は 何 本 か ファ イル が あり ます 。 フ ァ 
イル は レコ ー ド の 集合 で す 。 レ コー ド は さら に バイ ト 単 位 か ら で き て いま す 。 そ の バイ 
ト は 16 ビッ ト で で き て いま す 。 こ の ビッ ト は ご 存じ の よう に 0 と 1 の 値 を と り ま す 。 こ 
の ファ イル の 中 に ある ビッ ト の 1 の 個数 を 勘定 し て 、 フ ァイル の 情報 と し て フロ ッ ピ ー 
に 付け 加え て お く の で す 。 

こう し て お け ば 、 フ ロッ ピー の 中 の ある ファ イル が 「 賞 味 期限 」 を 過ぎ て 変質 し て い 
る か どう か は 、 フ ァイル を ひと つ ず つ 読 み 込ん で その 中 に 含ま れる 文字 の ビッ ト 1 の 数 
を 数 を て 、 そ れ を さき ほど の 情報 と 比較 し て 一 致す れ ば OK 、 そ う で な けれ ば どちら 
か が お か し い 、 つ まり ファ イル に 何 か 変化 が 起こ っ た こと が わか り ま す 。 

ここ で は ファ イル の 中 の 各 バ イト を 整数 と みな し て 、 そ の 和 を チェ ッ ク サ ム と し まし 
た 。1 バイ ト は 8 ビッ ト か ら で き て いま すか ら 、1 ビ ッ ト で も 違え ば 整数 と し て の 値 も 
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違っ て くる は ず で す 。 


面 リス ト 5-4 

1: program LTST5_4: 
と 
3: uses Crt,Dos: 
4: type 
5: TabLe_type = ^~TabLe_Rec:{ フ ァイル 名 リス ト 用 ポイ ンタ 型 } 
6 TabLe_Rec = record {ファ イル 名 リス ト 用 型 } 
7 disk_fiLename : string[12] :1 フ ァイル 名 } 
8 next_fiLename : TabLe_type:t 次 ファ イル ポイ ンタ } 
9: end : 

10 : Data_Rec = recordt フ ァイル デー タ 型 } 

PA fiLename_data : string[12] : 

人 checksum_data : 1nteger: 

0 end : 

14 : 

15: comst 

を VERTFY_DTA = 〉VERIFY.DTA':{ ベ リフ ァ イ 用 ファ イル 名 } 

7: BELL = #7 イ ブザー 鳴動 } 

18: 

19: var 

20: Data_FiLe : fiLe of Data_Rec: て {べり ファ イフ ァイル } 

21 : NameCheck  : Data_Rec:{t ベ べり ファ イ 対 象 フ ァイル } 

1 TabLe , 

23: ListPt ェ : TabLe_Type:1 リ スト ポイ ンタ + 

24 : Drive_No  : string[2] :{ ド ライ ブ 番 号 } 

25: FiLe_Name : string[12] :{1 フ ァイル 名 } 

26 : Check : booLean:t べ り フ ァ イ } 


27: CheckSum  : integer:{ チ ェ ッ クサ ム (バイ ト 合 計 ) } 
28: Character  : char:{ ド ライ ズブ 入力 用 } 


29: Path_Name : String:{ パ ス 名 + 

30 : Attribute  : word:{ ア トリ ビュ ー ト } 

31 : Fi1es : SearchRec:{Dos ユニ ッ ト 定 義 変 数 } 
に た 


33 : 未来 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 来 玉 玉 玉 来 玉 来 玉 玉 玉 玉 玉 玉 十 
34 : 
35: procedure Disk_Check:{ ベ リフ ァ イ フ ァイル 存在 チェ ッ ク } 


36 : 

0 Var 

38 : Data_FiLe : fiLe of char: 

39: 

40: begin 

41 : Assign(Data_FiLe ,Concat(Drive_No,File_Name) ) : 
42 : {$ エ 1-} 

43: Reset(Data_FiLe) : 

44 : {$ エ +} 

45: 


46 : Check :=TUResuL 上 =0 : 
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47 : 
48: 
49: 
50: 
51 : 
62 
に に 
54: 
55 : 
に (お 
に Y 
58: 
59: 
60: 
61 : 
62・ 
63・ 
64: 
65: 
66 : 
67 : 
68: 
69: 
70: 
7 
78: 
74 : 
75: 
76: 
作っ 
78: 
79: 
80 : 
81 : 
82 : 
83: 
84 : 
85: 
86 : 
87 : 
88: 
89: 
90 : 
91 : 
92 : 
93: 
94 : 
95: 
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if Check then 
CLose(Data_FiLe) : 
end : 


玉 * 玉 玉 玉 玉 来 玉 来 玉 来 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 来 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 十 
procedure DirectLy_Check: 


begin 
ListPtr : =n1, : 
FindFirst(?*.*2,ANYFTLE,F11es) : 
File_Name := Fi1es .Name : 
if DosError< く >18 then 
begin 
whiLe DosError<>18 do 
begin 
if((File_Name<>VERIFY_DTA){VERTFY .DTA 除外 } 
and (Fi1e_Name<>) つ ) 人 {ディレク トリ 除外 } 
and (Fi1e_Name<>' . .〉 ) ) 
then 
begin {べり ファ イ 対 象 フ ァイル の リス ト 作 成 } 
New(TabLe) : 
TabLe~.disk_fiLename:=File_Name: 
TabLe ~ .next_fiLename :=L1stPt+ : 
ListPtr : =TabLLe : 


end : 
FindNext(Fi1]es) : 
File_Name := Fi1]es.Name: 
@nd : 
end : 
end : 


玉 玉 玉 玉 玉 玉 来 玉 玉 玉 玉 玉 米 玉 玉 玉 玉 玉 米 玉 米 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 士 


procedure Read_Data:{ チ ェ ッ クサ ム の 作成 } 


Yar 
Check_FiLe : fiLe:{ チ ェ ッ クサ ム 対 象 フ ァイル } 
Read_Byte : array[1..50,1..128] of byte:{ 読 み 込み バイ ト } 
エ ,J,R_Size : 1nteger : 
begin 
CheckSum : =0: 


Assign(Check_FiLe ,Concat(Drive_No,Fi1e_Name) ) : 
Reset(Check_FiLe) : 


repeat 
bLockread(Check_FiLe,Read_Byte,50,R_Size) : 
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96: if R_Size>0 

97 : then 

98: for T:=1 to R_Size do {読み 込み バイ ト の 総和 + 
99: for J:=1 to 128 do 

100: CheckSum :=(CheckSum+Read_Byte [1 ,J] ) 
101 : mod MAXTNT: 

102: until. R_Size=0O : 

103: 

104: CLose(Check_FiLe) : 

105: end : 

106: 


107 : 未来 玉 玉 玉 玉 玉 米 玉 玉 玉 米 玉 玉 米 玉 米 玉 米 米 玉 米 米 玉 米 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 来 玉 玉 玉 玉 
108: 
109: procedure write_Data:{VERTFY.DTA 作成 } 


110: 

1 まず > 

112: begin 

1 まき 1 DirectLy_Check: 

114: 1f ListPtr=niL, 

145 then 

116: Writern(* コ ノ disk ニハ ナニ モ ハイ ッ テ イマ セン 。 5BELL) 
1 ま 75 eLse 

149? begin 

119: TabLe : = 上 L1stPtr : 

120: Assign(Data_FiLe ,Concat(Drive_No,VERTFY_DTA) ) : 
人 まる Rewrite(Data_FiLe) : {VERIFY.DTA の オー プン + 
122) 

123: whiLe TabLe<>niL, dotVERITFY.DTA の 書き 込み } 
124 : begin 

125? File_Name:=TabLe~ .disk_fiLename: 

126 : Read_Data: 

よがり NameCheck .fiLename_data:=File_Name: 
128: NameCheck .checksum_data:=CheckSum : 

129 : Write(Data_FiLe ,NameCheck) : 

1305 WriteLn(F1i1le_Name,〉 = 〉,CheckSum : 6) : 
13 衣 7 TabLe : =TabLe~ .next_fiLename : 

192! end : 

133: 

134 : CLose(Data_FiLe) : 

135: WrtgE(VERTFYDTA, ダ ツク グ クリ マジ みほ に う 295 
136: end: 

3 が 9 end : 

138: 


139: *** 玉 ** 玉 米 玉 玉 玉 玉 玉 来 来 玉 玉 米 玉 玉 来 来 玉 玉 玉 来 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 来 玉 玉 来 来 玉 玉 
140: 

141: procedure Verify_Data:t ベ リフ ァ イ 照 合 } 

142 : 

143: Var 

144 : Bad ,Missing , 
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145: Data_CheckSum  : integer : 

146: 

147: begin 

148: DirectLy_Check : 

149: 1f 1stPt エ =ni1. 

150 : then 

151 : WriteLn(, コ ノ disk 二 ハ ナニ モ ハイ ッ テ イマ セン 。!,BELL) 
152: eLse 

153: begintVERIFY.DTA の オー プン }+} 

154 : Assign(Data_FiLe ,Concat(Drive_No,VERTFY_DTA) ) : 
155: Reset(Data_FiLe) : 

156 : Bad :=0: 

157 : Miss1ng:=0: 

158: 

159: repeat 

160 : Read(Data_FiLe , NameCheck) : 

161 : File_Name:=NameCheck .fiLename_data: 

162 : Data_CheckSum : =NameCheck .checksum_data: 
163.: Disk_Check: 

164 : if Check then 

165: begin 

166 : Read_Data: 

167 : if CheckSum=Data_CheckSum 

168: then{ 妥 合 OK} 

169: WriteLn(? 米 米 米 玉 玉 GUUD * ネ 米 玉 玉 米 2 
170: >F1i1e_Name) 

374: eLse{ 書 き 換 えら れ て いる } 

ンス begin 

て WriteLn(?  。 ーーー ニ ーー BAD ” = ニニ --- 5 
174: >Fi1e_Name,BELL ) : 

4 Bad : =Bad+1 : 

176: end: 

177: end 

178: eLset フ ァイル が な い } 

179: begin 

180 : WriteLn(? ニニ = ニ = ニ = MTSSTNG = ニニ === ? , 
181 : Fi1e_Name,ELL) : 

182: Missing:=M1ssing+1 : 

183: end : 

184 : untiL. eof(Data_FiLe) : 

185 : 

186 : CLose(Data_FiLe) : 

187 : WriteLn(!) : て {ベリ ファ イ 合 計 表 示 + 

188: WriteLn(?)) : 

189 : Wr1 て teLn ( ? ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニー ) 、 
190 : 〉 ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニ ) ・ 
191 : WriteLn(?! ) : 

192: 順 rt も eEn( ナ スペ テン fe プ ベリ ラ ァ イ 六 オウ ワリ マシ タ 。 うう 5 
193: WriteLn(〉 コワ レタ fiLe + | ) 呈 9 選 :3) 
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194 : 
195: 
196 : 
97・ 
198: 
199 : 
200 : 
201 : 
202: 
208 
204 : 
205: 
206: 
207 : 
208: 
209: 
アタ 49 及 
211 : 
212* 
213: 
214 : 
み 15$ 
216 : 
の ん 
218: 
219: 
220 : 
ピア ャ 
222。 
2 
224 : 
225: 
226 : 
22746 
228 : 
229 : 
230 : 
9933 
282 > 
238: 
234 : 
235・ 
236 : 
237 : 
238 : 
239 : 
240 : 
241 : 
242 : 


WriteLn() ショ ウメ ツ シタ fiLe : !,Missing:3) : 
WriteLn(?!): 
end : 


end : 
** 玉 来 来 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 ※ 二 
procedure Get_DriveNo:t ベ べり ファイ 対象 ドラ イブ } 


begin 
Ar3tet1 ペ リュ フ プイ スル ドラ イブ ラ シテ イ シテ クダ サイ 。 う 995 
ReadLn(Character) : 
Drive_No:=Concat(Character,? :) ): 

end : 


未来 玉 玉 来 来 来 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 米 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 米 玉 玉 米 玉 十 


begin 
CLrScr: 
Get_DriveNo:{ 対 象 ド ライ ブ 入 力 } 
Fi1e_Name:=VERIFY_DTA:{ べ り フ ァ イ デ ー タ ファ イル 名 指定 } 
Disk_Check:{ デ ィ ス ク 存 在 チ ェ ッ ク } 
if not Check 
then 
WriteLn(VERIFY_DTA,) が ガ アリ マセ ン 。 '〉 ,BELL) : 
WriteLn(Drive_No。。 ドラ イブ ノ disk ニニ )):{ 新 た に VERIFY .DTA 作成 } 
Write(〉 ?,VERIFY_DTA, ヲ アタ ラ シ ク ツク リマ スカ 【[Y to yes] ?): 
ReadLn(Character) : 
if (Character=*Y〉) or 
(Character=?Y”) or 
(Character=〉 ン ご?) 
then 
Write_Data 
eLse 
begin 
if not Check 
then 
WriteLn(VERIFY_DTA,。 ヲ ツク ッ テ クダ サイ 。 ?,BELL) 
eLse 
begin 
Write(' べり リ ファ イ シマ スカ 【[Y to 7es ] ? う ): 
ReadLn(Character) : 
if (Character=?Y〉) or - 
(Character=??) or 
(Character=〉 ン 〉) 
then 
Verify_Datat ベ リフ ァ イ } 
eLse 
WeiteEn( プロ グラ ム ヲ 。 オ キワ リマ ス 。 。 BLLE) : 
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243: end : 
244 : end : 
245: end. 


リス ト 5-4 を 見 て くだ さい 。 細か い 内 容 を な が め る より も こ で は 各 手 続き の 説明 を 
し まし ょ う 。 ま ず 、35 行 目 の Disk_Check は File-Name で 指定 され た ファ イル が A : 人 
BE 、… な どの Drive_No に 存在 する か どう か を 調べ ます 。 その 結果 は 論理 変数 Check 
に 格納 され ます 。 

53 一 78 行 目 の Directry_Check は チェ ッ ク サ ム ・ べ ベリ ファ イ 用 の 情報 を 入れ て お く 
デー タ ・ フ ァイル 、VERIEFY.DTA 以外 の ファ イル が ディ レク トリ 上 に 存在 する か どう 
か を 調べ 、 存 在 す れ ば それ を 次 々 に ヒー プ 内 に 表 と し て 格納 し ます 。 こ の 作業 は ファ イ 
ル 用 の 手続 き と し て Dos ユニ ッ ト に 用 意 き れ て いる 手続 き 、FindFirst と FindNext を 
使え ば 科 単 に プログラミング で きる は ず で す 。 詳しく は 第 2 章 を 参考 に し て くだ さい 。 

82 行 目 の 手続 き Read_Data は 50 X 128 バイ ト 単 位 で ファ イル 内 の バイ ト を 読み 込 
み 、128 バイ ト を 128 個 の 整数 デー タ と し て 和 を 次 々 に CheckSum と し て 計算 し ます 。 
この CheckSum は どん どん 大 きく な り 、 つ い に は MAXINT(32767) を 越え を て し まい 、 
シス テム ・ エ ラー が 発生 し て プロ グラ ム の 実行 が 停止 し ます 。 そ れ を 人 避け る た め 100 行 
目 で 128 バイ ト の 和 を 作る た びに MAXINT で 割っ た 余り を CheckSum に し て いま す 。 

109 行 目 の 手続 き Write_Data は 、 先 ほど ヒー プ 上 に 確保 し た ファ イル の 表 か ら フ ァ 
イル 名 を 読み 出し 、 チ ェ ッ クサ ム と と も に VERIFY.DTA に 書き 込む と 同時 に 画面 に 表 
示し ます 。141 行 目 の Verify_Data は この プロ グラ ム の 中 心 と な る 手続 き で す 。 

フロ ッ ピ ー に 入っ て いる VERIFY.DTA か ら フ ァイル 名 と チェ ッ ク サ ム を 読ん で は 、 
フロ ッ ピ ー か ら ヒ ー プ 上 に 移し た ファ イル の 表 の デー タ と 比較 し 、 チ ェ ッ クサ ム が 合わ 
な けれ ば Bad 、 フ ァイル 自体 が 存在 し な けれ ば Missing 、 異 常 が な けれ ば Good を 表 
示し ます 。201 行 目 の Get_DriveNo は 読み 込ん だ ドラ イブ 指定 文字 に : を 付加 する だ 
け の 科 単 な も の で すか ら 、 説 明 の 必要 は な いで し ょ う 。 

211 行 目 か ら メ イン プロ グラ ム で す 。 ま ず 、213 行 目 で べ リ ファ イ 操 作 の 対象 と な る 
フロ ッ ピ ー が どの ドラ イプ に セッ ト さ れ て いる の か を 指定 し ます 。215 行 目 で その ドラ 
イプ に セッ ト さ れ て いる フロ ッ ピ ー 内 に チェ ッ ク サ ム 情 報 を 持っ て いる VERIFY.DAT 
が 入っ て いる か どう か を 調べ 、 入 っ て いれ ば Check を TRUE 、 を そう で な けれ ば FALSE 
の 

FALSE の 場合 は 、 新 た に VERIFY.DAT を 作成 する か どう か を 決め 、TRUE な ら 
チェ ッ ク サ ム ・ べ ベリ ファ イ を 行い ます 。 私 は あま り 好 き に な れ ま せん が 、 カ ナ キ ー に セッ 
ト し て 使う 場合 も 考え て 、「 ン 」 を 入力 し て も YES の Y( ま た は y) を 入力 し た の と 同じ 
青 定 入力 に し て いま す 。 さ ら に 、 入 力 を 促 す と き に は ピッ と 音 を 出し て いま す が 、 耳 ぎ 
わり な ら 定 数 BELL の 出力 を 除い て くだ さい 。 
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こう し て 作っ た プロ グラ ム を 使っ て 適当 な ディ スク を チェ ッ ク し て みた 結果 例 を の せ 
て お きま し た 。 こ こ で は いく つか の ファ イル が 壊れ て いた り 、 消 去 さ れ て いた 例 を 示し 
に 


Pk CGNORWS'4 づ 入 人 条 者 や ペー ェ ゴ さこ で さ の ささ サ ぶ ニッ 


リフ ァ イ スル ト "ラブ ~ ラ ィ 流 2 の サイ 。a 
a: トラ イプ” ノ disk こ 
UERIFY.DTR ラ 7 タデ ウ リウ リマ スカ [Y to ueS] ? 


ペリ ファ イ スカ [Y to ueS ] ? り 

*ww** GOUUD ***** LUNFIG.SYS 
***\* 。 GOOD ***** SnMPLE2.PRS 
ーー PRD リー ーーー SPPEE3.EXE 
eee BRD 一 - 一 - SRMPLE2.EXE 
***** 。 GOOD **\** BINPRY.DTH 
***\* (GOOD ***** COUTIPND.COI 
= ニニ === MISSING ===== LIST3-1 .PRS 
ニニ === ト MISSING ===== CHECK.PRS 


2 fiLe ノダ パリ ファ が わり やゆ 。 


JDL タ fiLe の 
2 ョ 9 メ ゲ ラグ fite -: 2 


較 図 5-2 


アイ デア ひと つ で スピ ー ド アッ プ 
り 一 5m2 進 サ ー チ 

か な り 複 雑 な プロ グラ ム が 続い た の で 、 こ の 節 で は ぐっ と や さき し い プ ログ ラム を 作り 
一 息 入 れ ま し ょ う 。5-2 で テキ スト ファ イル の 高速 ソー ティ ング を や り ま し た が 、. フ ァ 
イル 内 の レコ ー ド を た だ ソー ト し た だ け で は 意味 が あり ませ ん 。 こ の ファ イル か ら 必 要 
な レコ ー ド を 検索 し て こそ ソー ト し た 意味 が 生ま れ ま す 。 

そこ で 、 こ こ で は ソー ト 済 み の フ ァイル か らい か に 高速 で 検索 する か を 考え て み ま 
し ょ う 。 私 た ち が 英 語 の 辞書 か ら 目 的 の 単語 を 探す と き に どう する の か を 考え て み ま 
し ょ う 。 た と えば 、text と いう 単語 を 引く と き に どう する で し ょ うか 。. ま ず 、 辞 書 の 
「 呈 」 で 始ま る 単語 が ある と お ぼ し き あ た り を 開き ます 。 そ れ が T で 始ま る 単語 の と こ 
ろ で な く 、S で 始ま る 単語 の と ころ だ っ た ら ペ ー ジ を 先 に めく っ て の と ころ を 出し ま 
す 。T が 出 て きたら こん ど は BE の と ころ を 同じ 用 に 探し まま 。。 こ う し て 区 、、.T と 探し 
て text が みつ か り ま す 。 
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こん な 当り 前 の こと で も コン ピュ ー タ に や ら す と な る と 簡単 で は あり ませ ん 。 上 の 例 
の よう を な 方法 を プロ グラ ム で 作る に は 、 検 索 の 対象 と な る ファ イル 自体 を A、B、C、 
…… の よう に アル ファ ベッ ト 見 出し を 付け て 検索 が 容易 と な る 構造 に 設計 する 必要 が あ 
り ま す 。 そ の よう な プロ グラ ム を 作る の は それ ほど 難し いこ と で は あり ませ ん が 、 単 純 
な 作業 ほど 効率 よく こなせ る と いう コン ピュ ー タ の 特徴 を 利用 で きる 方 法 が あり ます 。 
ここ で 紹介 する 2 進 サ ー チ が その 方 法 で す 。 

2 進 サ す ー チ と いう も っ と も らし らい 名 前 が つい て いま す が 、 内 容 は それ ほど た いし た も 
の で は あり ませ ん 。 フ ァイル を まず 半分 に 分 け 、 検 索 す べき デー タ が どちら の 半分 に 
入っ て いる の か を まず 調べ ます 。 そ れ が 決ま っ た ら 、 こ ん ど は その 半分 を さら に 半分 に 
分 け 、 ど ちら の 半分 に 入っ て いる か を 調べ ます 。 こ れ を 続け て 行け ば や が て は 検索 すべ 
き プ ー タ に 当たる は ず で ま 。。。 

こん な 単純 な 方 法 で す が 実 に 効果 的 で す 。 頭 か ら 次 々 に レコ ー ド を 読ん で は 目的 の 
デー タ か どう か を 判定 する アル ゴリ ズム で 検索 する の に 比べ る と 劇 的 な 速度 向上 が えら 
れ ま す 。 む ろ ん 、 こ の 他 に も 速い 方 法 は あり ます が 、 ア ル ゴ リ ズム が 単純 と いう 点 で は 
2 進 サ ー チ が 優れ て いる よう で す 。 

リス ト 5-5 は 2 進 サ ー チ を 動か し て みる た め の テ スト 用 デー タ ・ フ ァイル を 作る プ 
ログ ラム で す 。 べ つ に こん な プロ グラ ム が な く て も テス ト ・ デ ー タ は 作れ る と 思い ます 
が 、 私 も 含め て も の ぐさ な 読者 の た め に 用 意 し まし た 。2 進 サ ー チ の プロ グラ ム 本 体 は 
り ) 炊 ト 呈 6 で す 。 


圏 リス ト 5-5 

1: program LTST5_5: 

7 

3: type 

4: Str20 = string [20] : 

5: 

6: var 

人 DataFile :fi1e of Str20: 
8: data :array[1..16] of Str20: 
に た ュ 1 : 1nteger : 

10: 

11: begin 

32) data[1] := ?AUYAMA〉: 

13: data[2] := ?ENDO?: 

14 : data[3] := Endo!: 

15 : data[4]  := TSHTHARA' : 
16: data[5] := :Tshihara' : 
5 data[6] := KATOD?: 

18: data[7] := ?KAWABATA': 
19: data[8]  := ?KOBAYASHT〉 : 
20 : data[9] := :KOGURE': : 
も: data[10] := ?KURAMOTO' : 
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レン data[11] := MATUZAWA?: 
28* data[12] := :NAKAMURA?: 
24 : data[13] := OOTAKE?: 


レア (人 data[14] := ?SAKATANT'〉 : 
26 : data[15] := ?SHITRATSHT'〉 : 
27: data[16] := ?TANAKA〉: 
28: 


29: Assign(DataFi1e, binary.dta' ) : 
30 : Rewrite(DataFi1e) : 


に 

に と for i := 1 to 16 do 

33: Write(DataFi1e,data [i] ) : 
34・: CLose(DataFi1e) : 

35: end. 


田 リ スト 5-6 


1: program LIST5_6: 

レア 

3: uses Crt: 

4: 

5: type 

6: Str20 = string[20] : 

74 

8: var 

9: datafiLe :fi1e of Str20:{ 検 索 対象 ファ イル } 
10: data , {読み 込み デー タ }+ 
11: sousaku  :Str20: {検索 デー タ + 
12: Lo,hi , {上 、 下 、 中 央 ポイ ンタ } 
し 人 m1d, 

14: count : integer : {検索 回 数 } 

15: owari : booLean : {終了 判定 } 

16: 

17: begin 

18: CLrScr: 

19: Assign(datafiLe , binary.dta' ) : 
20 : Reset(datafiLe) : 
2 ま : count := 0: 
レツ 0 
23: hi := FiLesize(datafiLe) : 
24: owari := FALSE:{ こ こま で 初期 化 } . 
25: write(: 検索 する 名 前 を 入力 し て くだ さい 。: う : 
26: ReadqLn(sousaku) :{ 検 索 デ ー タ 入力 + 
27: repeat 
人 if Lo>hi 
29 : then 
30: begin 
31 WriteLn(〉 該当 する 名 前 は あり ませ ん 。 う ): 
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32 owari := TRUE: 

に に 人 end 

34 : eLse 

35: begint{ 検 索 開始 } 

に > Coumt := count+1: 

87 mid := (Lo+hi) div 2:{ 中 央 } 

38: WriteLn(count:2,〉 回 目 , LO ニ )」 

39 : bo:9 "HHT 王 ) H 和 >3。 27! MTD 45m1di3)3 
40: Reset(datafiLe) :{ デ ー タ ファ イル オー プン と 読み 出し } 
41: Seek(datafiLe ,m1d-1) : 

42: Read(datafiLe ,data) : 

43: if data > sousaku then hi := mid-1: 

44 : if data < sousaku then Lo := mid+1: 
45: if data = sousaku 

46 : then 

47: begin 

48: WriteLn(mid:3,〉 番目 に 入っ て いま す 。 う ): 
49: owari := TRUE: 

50 : end: 

51 : end : 

52: until. owar1 : 

53: C1ose(datafiLe) : 

54: end. 


プロ グラ ム は と て も 簡単 で すか ら 説 明 の 必要 も な いで し ょ う 。 変 数 Lo と hi は 検索 す 
る デー タレ コー ド 番 号 の 下限 と 上 限 で す 。 ま ず 始 め は 22 、3 行 目 で ファ イル の 先頭 と 
尻尾 の レコ ー ド 番号 を Lo と hi と し 、37 行 目 で その まん 中 の レコ ー ド 番号 を mid と し 
ます 。41 行 目 で ファ イル の 先頭 か ら mid 一 1 個 目 まで スキ ッ プ し 、42 行 目 で mid 番目 
の レコ ー ド を 読み 込み ます 。 

そし て 、 そ の レコ ー ド が 検索 デー タ よ り 大 きけ れ ば 、 検 索 デ ー タ は mid と Lo の 間 に 
あっ た こと が わか り ま す 。 小 さけ れ ば mid と hi の 間 に あ り ます 。mid と 一 致す れ は ば 検 
索 は 終わ り で す 。43 45 行 目 が この 部 分 で す 。 mid 番目 の レコ ー ド は 調べ 済み で すか 
ら 、hi ま た は Lo を それ ぞ れ mmid 一 1 と mid 十 1 に 置き 換え て また 同じ こと を し ます 。 

これ を 繰り 返せ ば や が て 目的 の デー タ が mid 番目 に な る は ず で す 。 も し 、 目 的 の デー 
タ が 存在 し な いと 、 最 終 的 に は hi と Lo の 大 小関 係 が 逆 に な っ て し まし ます 。 そ の と 

き に は 28 行 目 の 条 件 が 成立 し 、32 行 目 で owari が TRUE に な り 52 行 目 の until に 当 
た っ て 終了 し ます 。Halt を 使っ て プロ グラ ム か ら 抜 け 出 し て も よい の で す が 、datafle 
を オー プン し た まま で す の で 、TURBO Pascal が きち ん と クロ ー ズ し て くれ る は ず で 
す が そ れ に た よら ず オ ー プ ン し た ファ イル を クロ ー ズ し て 終了 し ます 。 こ の プロ グラ ム 
で TANAKA を 検索 し た と き の 出 力 結果 を 示し て お きま す 。 

この 検索 方 法 を 見 て 、 こ れ な ら 再 帰 呼び 出し (リカ ー シ プ ブ ・ コ ー ル ) が 使え る の で は な 
いか と 思っ た 読者 は か な り Pascal が 身 に 付い た ひと で す 。 こ こ で は これ 以上 2 進 サ ー 
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チ プ ログ ラム の 改良 は 行い ませ ん が 、 自 分 で 開発 し て これ と 再帰 呼び 出し と どちら が 
高速 か 比較 し て みる と お も し ろ い で し ょ う 。 も っ と も 、 そ の 場合 は 乱数 を 使っ て 、 デ ー 
タ ・ フ ァイル が 少な く と も 1000 個 以 上 レコ ー ド を 持つ よう に リス ト 5-5 を 改造 し な い 
と 、 比 較 に な ら な いで し ょ う 。 


ーーーーーー 
検索 する 名 前 を 人 力 し て くだ さい 。:TANAKG 
1 回 日 .L 〇 = 1HI=16MID= s 
2 回 月 。 LO 〇 = 9HI=i6MID= 12 
3 回 日 。 LO 〇 = 13 HI= 16 MID= 14 
4 回 日 。 LO 〇 = 15 HI= 16 MID= 15 
5 回 6 三 16 HI 三 16 MID= 16 
16 に 入っ てい ます 。 
> 

2 すす: 

田 図 5-3 


便利 な ファ イル 用 外部 コマ ンド 
5-6m 日 付 と 属性 で ディ レク トリ 表示 する 

MS-DOS の コマ ンド に は ファ イル 操作 を する た め の 基 本 コマ ンド が そろ っ て いま す 
が 、 そ れ だ け で は 十分 で は な いよ う で 、 便 利 な コマ ンド が あちら こち ら の パソ コン ネッ 
ト に だ たく さん PDS と し て アッ プ さ れ て いま す 。 市 販 の ソフ ト よ り も すばらし い PDS が 
いく つも あっ て 、 い つも 感心 し て し まい ます 。 し か し 、PDS の ほとん ど は 実行 ファ イ 
ル と し て 提供 され る の で 、 い っ た い ど う や っ て その プロ グラ ム の 機能 を 実現 し て いる の 
か は わか り ま せん 。 

そん な と ころ か ら ど う も 私 は PDS を 使う 気 に な ら な い の で す 。 コ ンピュータ ・ ウ ィ 
ルス の よう な 悪意 に も と づく も の は 当然 と し て 、 善 意 の も の で も プロ グラ ム の 論理 が 
誤っ て いて ファ イル を 壊し た りさ れ て は 困り ます 。 そ の 点 、 ソ ー ス コー ド が 公開 され て 
いる プロ グラ ム な ら 中 で 何 を や っ て いる の か わか る の で 安心 で す 。 

ここ で は ある 特定 の 日 付 以 降 作成 され た ファ イル や 、 今 日 か ら 指 定 日 数 以前 に 作ら れ た 
ファ イル を 一 覧 に する プロ グラ ム を 作り ます 。 フ ァイル を 次 々 に 作っ て いる と MS-DOS 
の dir コマ ンド で は どれ が 目的 の ファ イル か わか な い ほ ど 大 量 の ファ イル が 表示 され て 
し まい ます 。 あ る ファ イル が 特定 の 年 月 日 以降 に 作ら れ て いる は ず と いう こと が は っ き 
り し て いる と き に 、 こ の プロ グラ ム は 威力 を 発揮 し ます 。 日付 に よる 制限 で ディ レク ト 
リ 表 示さ せる だ け で は お も し ろく な い の で 、 こ こ で は さら に ファ イル の 属性 も 表示 させ 
る また とじ まし か: 
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リス ト 5-7 を 見 て くだ さい 。 か な り 長 い プ ログ ラム な の で 全体 の 構成 を つか む の が 大 
変 で す が 、 そ れ に は メイ ンプ ログ ラム か ら 目 を 通す と 早い で し ょ う 。 メ イン プロ グラ ム 


か ら 見 て ゆく と し て 、 そ の 前 に 各種 手続 き の 説明 を 簡単 に し て お きま す 。 


まず 38 行 目 の 手 続き Instrnct は この プロ グラ ム の 使用 法 が よく わか ら な か っ た り 、 
お か し な 指定 を し た と き に 使い 方 を 説明 する た め の も の で す 。 


h) ト ) ト ) hb) N) ト う b) 暫 村 EE に は を を に SISTER 
の の よい の いい は の Co の の oO は の 


oO OO Ob うい 
の いい ビビ 〇 OO 


必 の の の の の 
の 〇 CO の の 


CC oO の の 串 心 の DD は ビ 


は 
〇 


ト O 
コ 


GO 
ト 


: Program LTST5_7: 
uses Dos,Crt: 


ConSt 


MONTH_DAYS : array[ 0..12 ] of word = 
9 の 。 本 の 30 きま SD きも 。90、 3 も 30 332: 
{計算 を 簡単 に する た め 0 月 は 前 年 の 12 月 に し て お く } 


: tYpe 


・ Var 


SLASH に 2 ん 

MAXLTNE = 22: 

NULL = ^@: 

MaskForm = string[ 80 ]: 

FiLeRecPtr = “FiLeRecType: 

FiLeRecType = record 
FrName : string[ 12 ]: 
FrDate : string[ 20 ]: 
FrAtt エ > BEEdZI 35。]・ 
next : FiLeRecPtr : 

Gend : 

FiLeList, {表示 用 の ファ イル 情報 } 

FirstList, 

EndList : FiLeRecPtr:{ 並 び の 先頭 と 終り + 

FiLeMask : MaskForm : 

FuLLDir ・ booLean : 


back, { 何 日 前 か /P 指定 } 
Yr, mo, da, 


WeekDay : Word: 

DandT : DateTime: { Dos ユ ニッ ト 内 で 定義 され た 型 } 
PackedTime : Longint: 

FiLeTotaL , 

LineCount : 1nteger : 

PushKey : Char : 

CmdLine : string: {日付 指 定 /D } 


: Procedure TnStruct: 
: begin 


WriteLn() この プロ グラ ム は 2 つの 機能 を 持っ て いま す 。 う : 


圏 リス ト 5-7 


と 6. 便利 な ファ イル 用 外部 コマ ンド 


41: 
42: 
43: 
44 : 
45: 
46 : 
47 : 
48: 
49: 
505 
549 
52: 
53: 
54 : 
に > 
56: 
に 前 
58: 
59: 
60: 
(< 和 
62: 
に た 旬 
64: 
65: 
66: 
67 : 
68: 
69: 
9 
りか 
(の 
清和 
74: 
0 
< 
WW 
78: 
4 が 
80: 
に 
82 : 
83: 
84 : 
85: 
86 : 
87 : 
88: 
89 : 


WriteLn : 


writeLn(:(1) 指定 され た 日 付 以 降 に 作ら れ た ファ イル を 表示 する 。 う ): 
WriteLn(?(2) 今日 か ら 指 定 さ れ た 日 数 以前 に 作ら れ た ファ イル を 表示 する 。 う ): 


WriteLn : 
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writeLn(?〉 標準 形式 : LIST5-7 [ mask ] [ /Dyy-mm-dd また は /Pnn ] [ /F ]): 


WriteLn : 


WriteLn( mask: 表 示し た い フ ァイル ・ マ スク ウ : 


WriteLn( yy-mm-dd: 年 月 日 〉) : 


WriteLn( nn28 日 以内 の さか の ぼる 日 数 ( 1 <=n<= 28 )): 


WriteLn(?/F: フ ァイル 情報 不要 指定 う ): 


writeLn(〉 注意 1!! / の 後ろ に 空白 を 入れ な いこ と 。 う ): 


HaLt 


procedure FindDate( Pktemp : String: 
Var yr,mo,da : word ): 


{ プ P オ プシ ョ ン 時 の 日 付 の 並び 替え } 


Var 


Previous, xx : integer: 
begin 
DeLete( Pktemp, 1, 2 ): { 文字 列 か ら /P を 取り 除く } 
VaL( Pktemp, previous ,X ): 
if (x>0O) or (previous > 28 ) or ( previous < く 0O )then 
if ( previous > da ) then 
begin { 前 月 まで さか の ぼる } 
da := PreV1ous - da: 
mO := mo - 1: 
da := MONTH_DAYS[ mo ] - da+ 1: 
if (mo=0 ) then 
begin {1 月 か ら 12 月 まで } 
mo := 12: 
ES 本 od 
end 
end 
eLse 
da := da - prev1ous + 1: 
end: 
本 Ga は ca ニー に 
procedure FiLeTnfoList( var FiLeList : FiLeRecPtr ): 


{新しい FiLeList の 並び 替え } 


Var 

Ptr1 , Ptr2 : FiLeRecPtr: 
begin 

Ptr2 := FirstL1st : 

Ptr1 := Ptr2~ .next: 


: end: 


: procedure FiLeTnfoDisp( PkCompDate : LongTnti 人 日付} 


: て ディ レク トリ 探索 で 見 つか っ た ファ イル 名 を 表示 } 
・ tYpe 


・ Va 


: procedure TimeStamp( var PkTime : Longint: 


: { 圧縮 され た ファ イル 日 付 を 変換 } 


: Var 
stamp : DateTime:{ Dos ユ ニッ ト 内 の 型 } 
StampStr , 
workStr : string[ 20 ]: 


: begin {タイ ム ス タ ン プ の 展開 と 先頭 の 0 付加 } 
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EndList^ .FrName := FiLeList~ .FrName : 
whiLe ( Ptr1^.FrName < FiLeList^.FrName ) do 


begin { ポイ ンタ を 進め る } 
Ptr2 := Ptr1: 
Ptr1 := Ptr2~ .next: 

end : 


{ Ptr1 と Ptr2 の 間 に 挿 入 } 


FiLeL1st~ .next := Ptr1: 
Ptr2^ .next := FiLeList: 


var FiLeTnfoRec : SearchRec ):{1 デ ィ レ クト リ 情 報 } 


DandTStr = string[ 20 ]: 


PkFiLeDate : Longint:{( パ パック され だ た ファ イル 日 付 } 
DateAndTime : DandTStr:{ 展 開 さ れ た ファ イル 日 付 } 


var dStr  : DandTStr ): 


UnpackTime ( FiLeTnfoRec .Time, Stamp ): 


Str( stamp.Year - 1900 , stampStr ): 
Str( stamp .Month, workStr ): 
if ( stamp.Month < 10 ) then 
StampStr := stampStr + 〉-0? + workStr 
eLse 
StampStr := stamDpSt エ + ?ー〉 十 workSt エ : 
Str( stamp .Day , workStr ): 
if ( stamp.Day < 10 ) then 
StampStr := stampSt エ + ?-0? + workStr + ? 1 
eLse 
StampStr := StampSt エ + ?ー? 十 workSt エ + 〉 1 


Str( stamp .Hour , workStr ): 
if( stamp.Hour < 10 ) then 
StampStr := stampStr + ?07? + workSt エ 
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139 : eLse 
140: StampStr := stampStr + workSt+: 
141 : 


142: Str( stamp .Min , workStr ): 
143: if ( stamp.Min < 10 ) then 


144: StampStr := stampStr + ?:0〉 
145: eLse 
「 146 : StampStr := StampStr + 7: フ 5 
[ 147 : dStr := stampStr + workStr : 
「 148: end: 
149: 
150: begin 


「 151: PkFiLeDate := FiLeTnfoRec.T1me: 
152.: if ( PkFiLeDate >= PkCompDate ) then 


153: begin { 指定 日 付か それ 以降 の ファ イル } 
154 : New( FiLeList ): 
155: FiLLchar( FiLeList^, SizeUf(FiLeList^) , NULL ): 
156: timeStamp( PkFiLeDate, DateAndTime ): 
157 : inc( FiLeTotal ): 
158: FiLeList~.FrName := FiLeTnfoRec .Name: 
159: if FuLLDir then 
160: begin 
「 < FiLeList~ .FrDate := DateAndTime : 
162: if ( FiLeTnfoRec .Attr = 32 ) then 
' 163: { アー カイ プ ビ ッ ト が オン + 
「 164: FiLeList^.FrAttr := アー カイ プ > 
165: eLse 
166: if ( FiLeTnfoRec.Attr = 16 ) then 
167: FiLeList~ .FrAttr := ディ レク トリ ぅ 
168: eLse 
169: if ( FiLeTnfoRec.Attr = 8 ) then 
170: FiLeList^.FrAttr := ボリ ュー ムラ ベル > 
理 eLse 
064 FiLeList^.FrAttr := その 他 ? 
の の 4 end: 
174: FiLeInfoList( FiLeList ): {FiLeList の 挿入 +} 
すす 5? end : 
176: end: 
PyW 訟 
178: ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー 
179: 
180: procedure DirSearch( PkTime : Longint: { 比較 用 の 圧縮 日 付 } 
181 : mask : MaskForm ): { ディ レク トリ 探索 マス ク } 
182: { マス ク で カレ ント ディ レク トリ を 探索 する } 
183: var 
184: FiLes : SearchRec: {Dos ユニット の 型 } 
185: begin 


186 : FiLeTotaL := 0: 
187: FindFirst( mask, AnyFiLe, FiLes ): 
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188 : 
189 : 
190 : 
191 : 
192 : 
193: 
194 : 
195: 
196 : 
9 
198: 
199 : 
200: 
2035 
202: 
203.: 
204 : 
205: 
206: 
207 : 
208: 
209 : 
210: 
24) 
223 
213: 
214 : 
215: 
2 ま 66 
の 2 
218: 
219: 
220 : 
2 も 2 
クジ 
223: 
224 : 
225: 
226 : 
2263 
228 : 
229 : 
230 : 
234 : 
282* 
233: 
234 : 
235: 
236 : 
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if ( DosError = O ) then 


repeat 
FiLeTnfoDisp( PkTime, FiLes ): { 見 つけ た ファ イル の 表示 } 
FindNext(FiLes) % 
untiL. (DosError <> 0O ): { 全て の 適合 ファ イル を 探す } 
end : 
て ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー ニ ーー ニー ニー ニー ニー ニーーーーーー ニ ーー ニー ニー ニーーーーーー + 


procedure CmdLineParam( var CmdLine :string ) : 
{ コマ ンド ライ ン の パラ メタ か ら 日 付 を 取り 出す } 
Var 
], k : integer: 
temp : string[ 15 ]: 
begin 
{ CmdLine の 中 に 日 付 が 入っ て いる の で /D を 取り 除く } 
DeLete( CmdLine, 1, 2 ): 
{年 } 
] := Pos( ツー〉 ,CmdLine ): 
temp := Copy ( CmdLine, 1, ]j-1 ): 
DeLete ( CmdLine, 1, ] ): 
VaL( temp, yr, ]}): 
YT := YY + 1900: 


] := Pos( ツー)。 CmdLine ): 
temp := Copy( CmdLine, 1, ]-1): 
DeLete ( CmdLine, 1, ] ): 
VaL( temp, mo, ]}): 

+ 舞 ゃ ま 
temp := Copy( CmdLine, 1, ]-1): 
VaL( CmdLine, da, と 選 

end : 


procedure ParamAnaL:{ コ マン ド パ ラ メタ 解析 } 
var 

]),k : integer: 

temp: string[ 15 ]: 


begin 
k := ParamCount: 
for ] := 1 tok do 1 
begin 


temp := ParamStr( ] ): 
if ( temp[ 1 ] = SLASH ) then | 
case UpCase( temp[ 2 ] ) of ( 
?P〉 : FindDate( temp, yr, mo, da ): 

2D〉 : begin 
if Length ( temp ) > 2 then 
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237 : 
8: 
2 の 
240 : 
241 : 
242 : 
243.: 
244 : 
245: 
246 : 
247 : 
248: 
249: 
250 : 
251 : 
252 : 
253 : 
254 : 
255 : 
256 : 
257 : 
258: 
259 : 
260 : 
261 : 
262: 
263.: 
264 : 
265 : 
266 : 
6 
268 : 
269 : 
270: 
7 か 9 
ピリ 
ピル 
274 : 
275: 
276 : 
0 
リル < か 
279: 
280 : 
2 
282 : 
283: 
284 : 
285: 


begin 
CmdLine := temp: 
CmdLineParam( CmdLine ) 
end 
eLse 
begin 
Pr ! 
mo := 1: 
da := 1: 
end 
end : 
2? ド ) : FuLLDir := FaLse: 
eLse {パラ メタ 誤り }+ 
begin 
WriteLn( オプ ショ ン が 誤っ て いま すう : 
Tnstruct 
end 


エー 
〇 
oy) 
| 


end 
eLse {残っ た 文字 は ファ イル マス ク } 
FiLeMask := temp 


procedure ListDir(var FirstList, EndList : FiLeRecPtr ):{ 画 面 表 示 } 


Var 
Ptr : FiLeRecPtr: 
begin 
Ptr := FirstList~ .next: 
whiLe ( Ptr <> EndList ) do 
begin 


WriteLn( Ptr~ .FrName:15, Ptr~ .FrDate : 25 , Ptr^ .FrAttr:15 ): 


Ptr := Ptr~ .next: 
Tnc( LineCount ): 
if ( LineCount MOD MAXLINE = 0O ) then 
begin 
WriteLn( キー を 押し て くだ さい う : 
PushKey := ReadKey 
end 
end : 
WriteLn( FiLeTotaL:8, ) 本 の ファ イル が あり ます > ): 
end : { ListDir } 


begint メ イン プロ グラ ム } 
if (ParamStr( 1 ) = 〉?〉 ) then 
Tnstruct : 
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286: New( FirstList ): 
287: New( EndList ): 
288: FirstList^.next :=EndList: {リス ト の 初期 化 } 


289: GetDate( yr, mo, da, WeekDay ): . { デフ ォ ー ル ト は 今日 の 日 付 } 
290: FiLemask := キキ { 全 フ ァイル } 

291: FuLLDir := True: { 日 付 と アー カイ ブ 状 態 を 表示 } 
292: LineCount := 0: { 表示 行 数 } 

293: if ( ParamCount = 0 ) then { デフ ォ ー ル ト の 探索 } 
294 : FiLeMask := 〉*.*2 

295: eLse ParamAnaL : { コマ ンド ライ ン 解 析 } 

296 : 

297 : with DandT do 

298 : begin 

299 : Year := YT: 

300: Month := mo: 

301 : Day = da: 

302 : Hour := 0: 

303: Min := O0: 

304 : Sec := 0: 

305 : end : 


306: PackTime( DandT, PackedTime ):{ 今 日 の 日 付 パ ッ ク } 
307: DirSearch( PackedTime, FiLeMask ) :{1 デ ィ レ クト リ 探 索 } 
308: ListDir( FirstList, EndList ):{ デ ィ レ クト リ 表 示 } 
309: end. 


この プロ グラ ム を ディ スク 上 に コン パイ ル し た 結果 は プロ グラ ム フ ァ イル 名 に より ま 
す が 、 こ こ で は プロ グラ ム フ ァ イル 名 と し て LIST5-7.PAS と し た と し まし ょ う 。 そ う 
する と 、 デ ィ ス ク 上 に は LIST5-7.EXE が 生成 され ます 。 そ れ を 実際 に 走ら せる に は 、 
7 な は 


A>LTST5-7 


の よう に し ます 。 と ころ が 、 実 は この プロ グラ ム は 日 付 や や 日 数 や コマ ンド パラ メー タ 
と し て 必要 と する の で す 。 


- た と えば 、1991 年 1 月 1 日 以降 に 作ら れ た ファ イル の 一 覧 を 見 た いと き に は 、 


LTST5-7 /D1911-1-1 


と 入力 し ます 。 も し も 、15 日 前 か ら 作 られ た ファ イル を 見 た けれ ば 、 
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LIST5-7 /P15 


es ブリ 層 村 す 。 

そし て コマ ンド パラ メー タ を 入れ な い 場 合 に は プロ グラ ム の 使用 法 を 表示 し て 停止 す 
る よう に し て いま す 。 つ まり 、 こ の プロ グラ ム が 一 体 何 を する プロ グラ ム な の か を 説明 
する よう に な っ て いる の で す 。 こ うし て お け ば 、 コ マン ド パ ラ メー タ の 入れ 方 が わか ら 
な く な っ て も 安心 で す 。 内 容 を よく 覚 を て いな い プ ログ ラム を な ん ど 走 ら せ て も うま く 
使え を な いこ と ほど イラ イラ する も の は あり ませ ん 。 あ た な が ほか の ひと に も ぜひ 使っ て 
ほし いと 思う プロ グラ ム を 作り 、 そ れ を フリ ー ウ ェ ア に する の な ら ぜ ひこ の 機能 を つけ 
る べき で す 。 な ん だ か わか ら な い プ ログ ラム が ひたすら 、 


T11ega1 command. Execution aborted . 


の よう な 表示 を 出す と し た ら 腹 が 立つ だ け で 使っ て みる 気 は お こり ませ ん 。 

さて 、38 行 目 か ら 始 まる の が その Instruct で す 。 内容 は プロ グラ ム の 使用 法 を 画面 
表示 する だ け で すか ら 、 む ず か し いと ころ は 何 も あ り ま せん 。 こ の 手続 き が 呼ば れる の 
は 使用 法 が わか ら な か っ た り 、 パ ラメ ー タ 指定 が 調 っ て いた り と いう 場合 で すか ら 画 面 
表示 が 終わ っ た ら 52 行 目 で Halt に より プロ グラ ム の 実行 を 終了 し ます 。 

57 行 目 の 手続 き FindDate は /P に より 何 日 前 と 指定 され た と き に 、 今 日 か ら そ の 日 
数 前 の 日 付 は 何だ っ た の か を 決定 し ます 。63 行 目 で は 文字 列 /P は 日 数 に 関係 な い の で 
を 取り 除き ます 。64 行 目 で 文字 列 と し て 入力 され て いる 日 数 を 数 値 デ ー タ に 変換 し ま 
す 。 こ こ で 、Val 手 続き の 3 番目 の パラ メー タ x は 数 値 デ ー タ へ の 変換 が うま く ゆ け ば 
0 、 そ う で な いと き に は x の 値 は 0 以外 の 未定 義 の 値 が 入れ られ ます 。 

65 行 目 で その x が 0 以外 に な っ て いる か 、 日 数 が 28 を 越 を て いる か 、 あ る い は 負 に 
な っ て いる か を チェ ッ ク し ます 。 日 数 の 最大 値 を 28 と し た の は 、2 月 が 28 日 まで と い 
うこ と と 、 一 応 4 週間 前 まで あれ ば よい と いう こと か ら こ うな り ま し た 。 

66 行 目 で は 指定 日 数 を さか の ぼる と 前 月 に な る か どう か を 判定 し ます 。71 行 目 で 月 
を 表す 変数 mo が 0 か どう か の 判定 が あり ます 。 0 月 と いう の は 実際 上 は あり ませ ん が 、 
ここ で は プロ グラ ム が 簡単 に な る よう に 前 年 の 12 月 を 計算 の 便宜 上 0 月 と し て いま す 。 

83 行 目 の 手続 き FilenfoList は パラ メー タ で 指定 され た 条件 に 一 致す る ファ イル の 
情報 を ポイ ンタ を 使用 し た リス ト 構 造 に つけ 加 を る た め の も の で す 。 こ の テク ニッ ク は 
ポイ ンタ 使用 の 基礎 で すか ら 、 も うこ の エキ スパ ー ト ・ マ ニュ アル を 読ん で いる あな た 
に は お な じみ な は ず で す 。 

104 行 目 の 手続 き FilenfoDisp が この プロ グラ ム の 中 心 に な り ます 。 こ の 手続 き の 中 
に は 内 部 で 使用 する 手続 き TimeStamp が 113 行 目 か ら 定 義 き れ て いま す 。 
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117 行 目 の 変数 stamp は DateTime 型 に 宣言 きれ て いま す 。 こ の DateTime 型 は Dos 
ユニ ッ ト 内 で 宣言 され て いる レコ ー ド 型 で 、 
DateTime = record 


Year , Month ,Day ,Hour ,Min ,Sec : word 
end : 


の 形式 で す 。 こ の 手続 き に より FileInfoRec の フィ ー ル ド Time に longint 型 で パッ 
ク さ れ て いる 日 付 と 時 刻 を stamp に 展開 し ます 。 

124 一 147 行 目 は 各 フ ィ ー ル ド が 一 桁 だ っ た と き に 先頭 に 0 を 付加 する た め の 処 理 で 
す 。150 行 目 か ら 指 定 日 付 に 対し て 各 フ ァイル の パッ ク さ れ た 日 付 と 時 刻 を longint 形 
式 で 比較 し て 表示 すべ き フ ァイル か どう か を 調べ て いま す 。 


180 行 目 の 手続 き DirSearch で は マス ク 指 定 さ れ た ファ イル を 探索 し て 、 先 ほど の 手 


続き FilelnfoDisp で 日 付 が 適合 する ファ イル を 表示 し ます 。197 行 目 の CmdLineParam 
は この プロ グラ ム に コマ ンド ライ ン パ ラメ ー タ と し て /D て 文字 列 と し て 日 付 が 引き 渡 
され た と き に それ を 取り 出し ます 。 

223 行 目 か ら 始 まる 手続 き ParamAnal は パラ メー タ が /D 、/P 、/F な の で 、 そ れ に 
応じ て 日 付 を 作り 出し て いま す 。/D で 解析 で き な い パラ メー タ が あっ た と き に は 1985 
年 1 月 1 日 を 日 付 と し て いま す 。262 行 目 の 手続 き ListDir は リス ト 構 造 に 作ら れ た 日 
付 適合 フ ァイル を 画面 表示 し ます 。 

これ で 手続 き の 定義 は すべ て で す 。283 行 目 か ら 始ま る メイ ンプ ログ ラム で や っ て い 
る の は これ ら 手 続き を 次 々 に 使っ て 処理 を する だ け で す 。 プ ログ ラム 中 の コメ ント を 読 
め ば 解 説 の 必要 は な いで し ょ う 。 


本 


ター ポニ マウス 


賢い ね ずみ を 飼い 慣 ら せ 


ひと ころ キー ボー ド に 代わ る 入力 装置 と し て マウ ス の 人 気 が 異 常に 高く な っ た こと が 
あり まし た 。 確か に 、 ア ッ プ ル の マッ キン トッ シュ に 使用 きれ た マウ ス は 、Mac-OS の 
すばらし さと も あい まっ て 、 非 常に 優れ ん た ユー ザー・ イ ンタ フェ ー ス を 提供 し まし た 。 
し か し 、 国 産 パ ソコ ン と ソフ ト に は いわ ゆる 「 お 絵描き 」 ソ フト を 除い て は 本 格 的 な 
マウ ス 使 用 環境 が 整わ ず 、 い つの ま に か マウ ス は パソ コン の 横 で ホコ リ を か ぶる 存在 に 
な ちら で て し まっ 深 湊 は で か 。 

し か し 、 こ の まま で は せっ か く 投 資 し た お 金 が 無駄 に な っ て し まい 残念 で す 。 上 手 に 
使 を ば 、 マ ウス は ほど 安価 で 効果 的 な ポイ ン テ ィ ン グ ・ デ バイ ス は 他 に あり ませ ん 。 そ れ 
に MS-Windows3.0 の リリ ー ス に 伴っ て ウィ ンド ウ 環 境 も 整い つつ あり ます 。 い よい よ 
マウ ス を 本 格 的 に 使う 時 代 が 到来 し た よう で す 。 そ こ で 、 こ こ で は マウ ス を TURBO 
Pascal で 活用 する に は どう すれ ば よい の か を 解説 し ます 。 

も っ と も 、 本 格 的 な マウ ス 活用 と な る と 、 マ ウス で 何 を 選択 する か を 図形 で 画面 に 表 
示す る アイ コン の 設計 まで や ら な けれ ば な り ま せん 。 ア イコ ン と し て どん な 図形 が ユー 
ザー に 直感 的 に 理解 で きる か まで 含め る と 、 大 き な 研 究 テ ー マ に な っ て し まい ます 。 

また 、 マ ウス を 使っ て 絵 を 描く こと も まじ め に コン ピュ ー タ ・ グ ラフ ィ ッ クス と し て 
解説 し た の で は この 本 の 範囲 を 越 を て し まい ます 。 マ ウス の グラ フィ ックス へ の 利用 は 
同じ PUG シリ ー ズ に 「 タ ー ボ グラ フィ ックス 」 と いう 本 が あり ます の で そちら を 参考 
に し て くだ さい 。 こ の 本 も TURBO Pascal で 書い て あり ます か ら 、 き っ と 役に立つ と 
思い ます 。 

さて 、 こ こ で 作る 簡単 な プロ グラ ム は マウ ス 用 の デバ イス ・ ド ライ バ で ある mouse.sys 
の 存在 を 前 提 に し て いま す 。 む ろ ん こ れ が な く て も ユー ザー ズ ・ マ ニュ アル に ある 1/O 
ポー ト の 情報 を も と に な ん と か マウ ス 動 作 を プロ グラ ミン グ す る こと は 可能 で す が 、 か 
な り 面 倒 な こと に な り ま す 。 マ ウス は 市 販 の アプ リケーション ・ ソ フト で し か 使わ な い 
と いう こと な ら 結 構 で す が 、 ひ と つ 本 格 的 な マウ ス 利用 プロ グラ ム を 開発 し て や ろう と 
思う の な ら 、mouse.sys を 手 に 入れ て お く こ と を 基 非 お 勧め し ます 。 

この デバ イス ・ ド ライ バ が あれ ば ほとん どの マウ ス 動 作 を サポ ー ト する こと が 可能 
で す 。 な に し ろ 、 マ ウス 操作 を すべ て 割り 込み で 処理 し て いる の で 、TURBO Pascal 
で の プロ グラ ミン グ が ぐっ と 簡単 に な り ま す 。 た だ 、mouse.sys に 付属 し て くる 底 料 は 
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BASIC が 例 に な っ て いま すし 、 読 ん で も すぐ に わか る よう に は で き て いま せん 。 
この 章 で は ご く 利 用 頻度 の 高い 基本 的 ルー チン を 紹介 する こと と し ます 。 こ れ を 理解 
で きれ ば 、 付 属 資料 が 何 を いっ て いる の か が よく 理解 で きる で し ょ う 。 こ こ で 使用 し て 
いる の は ASCII また は NEC か ら 提 供 き れ て いる Microsoff マウ ス で す 。 つ まり 、2 ボ 
タン 方 式 の マウ ス で す 。 こ れ を サポ ー ト する の が mouse.sys で す 。 
mouse.sys を あな た の パソ コン に 組み 込む の は 簡単 で す 。 シ ステ ム 立 ち 上 げ 用 の フロ ッ 
ピー に 入っ て いる config.sys に device = mouse.sys を 付け 加え る だ け で す 。 


圏 リス ト 6-1 
1: program LIST6_1: 
2: Uses Crt,Dos: 
3: 
4: const 
5: MOUSE_TNT = $33: 
に 衣 
7: type 
8: CursorForm = array[O..31] of word: 
9: 


10: も ファ ンク シュ ョ シル 6 
11: function Tnitial. : integer : 
12: {マウ ス 環 境 の 初期 化 } 


3 Var 

14: dos_reg : Reg1sterS : 

15: 

16: begin 

7 る dos_reg.aX := 0: 

18: Tntr(MOUSE_INT,dos_reg) : 

19: InitiaL := dos_reg.ax: {環境 状態 } 

20 : end : 

21 : {ニーーーーーー ニ ーーーーーー ニ ーー ニーーーーーーーーーーーー ニ ーーーーーーーー ニ ーーーーーーーー ニ ーー ニーーーーー + 


2 ンタ ン ン 信 プ 2 > 
23: procedure Tndication: 1 
24: {カー ソル 表示 } 


25: Ya エ 
26 : dos_reg : Reg1sters: 「 
レイ 

28 : begin 

29 : do8_reg.aX := 1 

30 : Tntr(MOUSE_TNT,dos_reg) : 

に ゃ 誠 Gend : 

32 : エーーーーーーーーーーーーーーー ニ ーーーー ニ ーーーーーーーー ニ ーー ニー ニーーーーーーーーーーーーーーーー ニ ーー 1 


た グチ ンダ ダヨ ンチ 

34: procedure Erase: 

35: {カー ソル 消去 } 

36 : Var 

に ) 角 dos_reg : Reg1sters 


39 : 
40: 
41: 
42: 
43: 
44 : 
45 : 
46: 
47: 
48: 
49: 
50: 
51 : 
52: 
53: 
54 : 
565: 
56: 
57 : 
58: 
59: 
60: 
61 : 
62: 
63: 
64: 
65: 
66: 
6 げ ・ 
68: 
69: 
70: 
の 
し 
93 
74: 
た 
> 
TA 
深 和 < 
79: 
80: 
に 時 
82 : 
に 
84 : 
85: 
86 : 
に Y 仙 


begin 
dos_reg.aX : 三 2: 
Tntr(MODUSE_TNT,dos_reg) : 
end : 


人 ン イン 公 ン 2 ン 0。 
function Position (var positionX , 
PositionY : integer) : integer: 
{カー ソル 位置 の 取得 } 
Var 
dos_reg : Reg1sterSs: 


begin 
dos_reg.aX := 3: 
Tntr(MDUSE_TNT,dos_reg) : 
Position := 10*dos_reg.aX 


+ dos_reg.bxi{ 左 右 ボ タン }+ 
positionX := dos_reg.cx: て 水 平 座標 } 
positionY := dos_reg.dx: {垂直 座標 } 

end : 


クッ ング ョ ンド rw00 ま 
procedure Set_Position (pos1tionX ,Dos1tionY : integer) 


{カー ソル 位置 の 設定 } 


Var 
dos_reg : Reg1sterS: 
begin 
dos_reg.aX := 4: 


dos_reg.CX := POS1tionX: {水平 座標 } 
dos_reg.dx := positionY: {垂直 座標 } 
Tntr(MOUSE_INT,dos_reg) 

end : 


の Po ジョ ャ ン (8 
function Left_Press ( Yar count, 
LastX 。 
LastY : integer) : integer : 
{ 庄 ボ タン 押下 情報 の 取得 } 
Var 
dos_reg : Reg1sterSs: 


begin 
dos_reg.aX := 5: 
Tntr(MOUSE_TNT,dos_reg) : 
Left_Press := 10*dos_reg.axit 押 下 情報 } 


count  := dos_reg.bx: {押下 回 数 } 
LastX := dos_reg・.CX: {押下 時 水平 座標 } 
LastY := dos_reg.dx {押下 時 垂直 座標 + 
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108 C 太 4P7 氏 6. ター ボ ・ マ ウス 


88 : end : 

セキ ーー ニュー の 誠 2 こち きら で こっ ンー エス ニコ みつ ここ を や っ 中 
90: キツ グ テ ン アグ ション 6 け 

91: function Left_ReLease ( var count, 


92 : LastX , 

93: LastY : integer) : integer: 
94: { 左 ボ タン 解放 情報 の 取得 } ' 
95: Yar 「 
96: dos_reg : RegisterSs : 
97: 
98: begin 「 
99 : dos_reg.ax := 6: 

100: Tntr(MOUSE_TNT,dos_reg) : 「 
101 : Left_ReLease := 10*dos_reg.axi{ 押 下 情報 } 「 
102: count := dos_reg.bx: {解放 回 数 } 「 
103: LastX := dos_reg.CX: {解放 時 水平 座標 } 
104: LastY := dos_reg.dx: {解放 時 垂直 座標 ( 
105: end: 「 
机 人 0 に t ス ココ ご ニュ ロビ ニュー ニニ モー コニー コー ココ コー ご 本 生 を 半 3 コー ニー コー に コー + 「 


5307 全 介 グ 移 アビ 8 のり) ' 
108: function Right_Press ( var count, 


109: LastX, 

110: LastY : integer) : integer: 
111: { 右 ボ タン 押下 情報 の 取得 } 

42 Yar 

113: dos_reg : Reg1sterS: 

114: 

も begin 

よ ま 9: dos_reg.aX := 7: 

7 Tntr(MOUSE_TNT,dos_reg) : 

118: Right_Press := dos_reg.axit 押 下 情報 } 

119: count  := dos_reg.bx: {押下 回 数 } 

120 : LastX := dos_reg.CX: {押下 時 水平 座標 } 

121・ LastY := dos_reg.dx {押下 時 垂直 座標 } 

> Gend : 

2 の 2 キー ニー ニア ジー ヤセ ーー コピ コニー ニュ ーー ニー ンー ニン ニ エ ーー 生生 サ ーー 3 + 


4124 アテナ ング ショ ン :8* 
125: function Right_ReLease ( var count, 


126 : LastX , 

23 LastY : integer) : 1nteger: 
128: { 右 ボ タン 解放 情報 の 取得 } 

二 の) VaY 

130 : dos_reg : Reg1ster5 : 

131 : 

132 : begin 

133: dos_reg.aXx := 8: 

134 : Tntr(MUUSE_INT,dos_reg) : 

135 : Right_ReLease := dos_reg.ax:{t 押 下 情 報 } 


136: count := dos_reg.bx: {解放 回 数 } 


137: 
198! 
139: 
140: 
141: 
142: 
143: 
144: 
145: 
146: 
147 : 
148: 
149: 
150: 
Py] 
152: 
153: 
154: 
155: 
156 : 
157: 
158: 
159: 
160: 
1615 
162: 
163: 
164 : 
165: 
166: 
167 : 
168: 
169: 
170: 
1 が 
172: 
73% 
174 : 
175: 
176: 
177: 
178: 
179: 
180: 
16 ま : 
182 : 
183 : 


184 
185 
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LastX := dos_reg.cx: {解放 時 水平 座標 } 
LastY := dos_reg.dx: {解放 時 垂直 座標 } 
end : 
他人 ニ プラ み ゴ ら の ー ニ エ ー ン ニニ デー ニン コピ ゆ 


{フレ ビク グン ショ マン 9 
procedure Set_Shape (centerX ,centerY : integer: 
shape  : CursorForm) : 
{カー ソル 形状 設定 } 
Var 
dos_reg : Reg1sterSs : 


begin 
dos_reg.aX := 9: 
dos_reg.bx := centerX: {カー ソル 中 心 点 水 平 座標 
dos_reg.cx := centerY: {カー ソル 中 心 点 垂直 座標 
dos_reg.es := seg(shape) :{1 カ ー ソ ル 形 状 デ ー タ アド レス } 
dos_reg.dx := ofs(shape) : 
Tntr(MOUSE_INT,dos_reg) 

end: 


日 


の グン 33 
procedure Movement (var moveX,moveY : integer) : 
{マウ ス 移 動 距離 の 取得 } 
Var 
dos_reg : Reg1isters: 


begin 
dos_reg.aX := 11: 
Tntr(MOUSE_TNT,dos_reg) : 
dos_reg.cx := moveX: {水平 方 向 移動 距離 } 
dos_reg.dx := moveY {垂直 方 向 移動 距離 } 


end : 


ファンク 光 ヨ 12i42 け 
procedure Set_CaLL (caLL : word: RTSeg,RTUfs : word): 
{ユー ザ 定 義 ル ー チ ン 呼 び 出し セ モット } 
Var 
doSs_reg : Reg1sterS : 


begin 
dos_reg.aX := 12: 
dos_reg.cx := caLL: {コー ル 条 件 } 


dos_reg.es := RTSeg:{ ユ ー ザ 定義 ルー チン アド レス } 
dos_reg.dx := RTOfs: 
Tntr(MOUSE_TNT,dos_reg) 

end : 


{ファ ンク ション 15} 
Procedure Set_Mickey_Dot (ratioX,ratioY : integer) : 
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186: {ミッ キー・ ド ッ ト 比 の 設定 + 


187 : Var 

188: dos_reg : Reg1sters : 

189: 

190: begin 

1035 do8s_reg.aX := 15: 

192: dos_reg.cx := ratioX: 和 {水平 方 向 比 } 

193: dos_reg.dx := ratioYi{ 垂 直方 向 比 } 

194 : Tntr(MOUSE_TNT,dos_reg) : 

195 : end : 

本 = ジ で コス ムー こち ep の co の の ら cn の 79owp こら な の だ + 


97x イン カ 24 の Yagi 19 
198: procedure Move_Set_X (minX,maxX : integer) : 


199: {水平 方 向 移動 範囲 の 設定 } 


200: Var 、 

201 : dos_reg : Reg1sterS: 

202 : 

203: begin 

204: dos_reg.aXx := 16: 

205: dos_reg.CX := minX: 

206: dos_reg.dXx := maXxX: 

207: Tntr(MOUSE_TNT,dos_reg) : 

208: end : 

20 の マミ ーー マー デ キネ SRie テ et と エーーーーーーーーーーーー ニ ニーーー ニ ニー ニー ニー ニー ニー ニー ニー ニー ニニ ー + 


40: エ 2 必 ンク ショ ン 317* 
211: procedure Move_Set_Y (minY,maxY : integer) : 


212: {垂直 方 向 移動 範囲 の 設定 } 


2 の 243 : Yar 

214 : dos_reg : Reg1tsterS: 

215 : 

216: begin 

どう "人 dos_reg.aX := 17: 

どなり ・ 和 1 dos_reg.CX := minY: 
219: dos_reg.dX := maxY: 
220 : Tntr(MOUSE_TNT,dos_reg) : ] 
221 : end : 

222 : ーーー ニー ニー ニーーーーー ニ ーーーーーーーーーーーーーーーーー ニ ーー ニーーーーーーーーーーーーーーーー ニ ーー + 


223: [ファ ンク ショ ン 181 ! 
224: procedure Set_PLane (pLane_no : integer) : 
225: {表示 画面 プレ ー ン 設定 } 


226 : Ya エ 

2 doS_reg : Reg1sterS : 

228 : 

229 : begin 

230 : dos_reg.aX := 18: 

231 : dos_reg.bx := pLane_no:{ プ レー ン 番 号 + 
232: Tntr(MOUSE_TNT,dos_reg) 

4233 : end : 


234 : [ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー } 


235 : 
236 : 
た 全 
238: 
239: 
240 : 
241 : 
242 : 
243: 
244 : 
245: 
246: 
247 : 
248 : 
249 : 
250 : 
251 : 
アッ 
253: 
254 : 
255: 
256 : 


257 


258: 


259 


260 : 
党 桂 > 
262 : 


{ユー ザ 定 義 ル ー チ ン + 
{$8- ,F++ 
Procedure TestRt : in も erruPt : 
begin 
TnLine ($FA) : りり 人 
Write(^g) : 
{ルー チン 終了 処理 } 
InLine ( 
$89/$EC/ { MOV SP,BP } 
$FB/{ ST1T } 
$5D/{ POP 
$07/{ POP E 
$1F/{ POP DS 
$5F/{ POP DI 
$5E/{ POP SI 
$5A/{ POP DX 
$59/{ POP CX 
$5B/{ POP BX 
$58/{ POP AX 
$CB { RETF } 
9 
end : 


: 1$8+,F-} 


の 
(の 


トー トン トー アト アト アト つつ 


: 1 デモ 用 メイ ンプ ログ ラム } 

Var 
dumc , dumx ,dumy : 1nteger: 
cdata : CursorForm: 


263: 


264: 


begin 


265: 


266 : 
267 : 
268 : 
269: 
270* 


if Initial, = 0O then 
begin 
WriteLn(, マウ ス が 使用 で きま せん 。 う ): 
HaLt 
Gend : 


お 


PYP 
7 ある 
274 : 
275: 
276: 
P ゴ 誠信 
278: 
279: 
280 : 
ez 拉 
282 : 
283 : 


for dumc := O to 31 do cdata[dumc] :=$FFFF : 
CLrScr: 
WriteLn( ) ***** MOUUSE DEMUNSTRATTUN ** ネ * ネ ** 95 
Write(? 右 ボ タン 押下 で 終了 し ます 。 う ): 
TextCursor(NoDispCursor) : て (テキ スト カー ソル を 隠す } 
Set_Shape(7,15,cdata) : {カー ソル を 四角 に する } 
Set_Position($013b,$00c0) :{ 中 点 セ モット } 
Tndication : {t マウ スカ ー ソ ル 表 示 } 
Move_Set_X($0000,.$0275): {て X 軸 セッ ト } 
Move_Set_Y($0000,$0180): {て Y 軸 セッ ト } 
Set_CaLL($02 ,Seg(TestRt) ,Dfs(TestRt) ) : 

{ 諾 ボタ ン 押 下 で ユー ザ 定 義 ル ー チ ン } 
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284 : 

285 : repeat untiL. Right_Press(dumc,dumx ,dumy)=-1:{ 右 ボタ ン 押 下 } 
286 : dumc := Tnitia] : 

287 : CLrScCr: > 

288 : Erase : { マウ スカ ー ソ ル 消 去 } 

289 : WriteLn(? ***** MUUSE DEMUNSTRATTUN END ***** 〉): 

290: TextCursor(DispCursor) : {テキ スト カー ソル 復活 } 

291 : end . 


リス ト 6-1 を 見 て くだ さい 。 マ ウス 機能 を サポ ー ト し て いる 部 分 は 5 195 行 で す 。 本 
来 こ の 部 分 は ユニ ッ ト ・ フ ァイル に し て あな た の ライ ブラ リ に し て 、 マ ウス 利用 の プロ グ 
ラム を 作る と き に 使い や すく し て お く と よい で し ょ う 。 も し そう し た けれ ば 、TURBO 
エディ タ を 使い ます 。 エ ディ タ で この リス ト を 入力 し た ら 、Ctrl-QR と 押し て カー ソル 
を 先頭 に 設定 し ます 。 次 に CtrlLKB と 押し て マー ク 開 始 に し て か ら 、 み カー ソル を 195 
行 の end : の 後ろ に 移動 し ます 。 

そこ で OtrLKK と 押す と マウ ス 機 能 の 部 分 が ブロ ッ ク 指 定 で カラ ー が 変わ り ま す 。 
CtrLKW を 押す と ファ イル 名 を 聞い て きま すか ら 、MOUSE.PAS と すれ ば 、 カ レン ト ・ 
ドラ イブ に MOUSE.PAS ファ イル が 作ら れ ま す 。 こ うし て お いて CtrLKY と する と 
プ ブロック 指定 され だ 部 分 が 消 減 し ます 。3 行 目 の uses に mouse を ユニ ッ ト と し て 加え 
ま 注 。 

むろ ん 、MOUSE.PAS と し て 作っ た ファ イル は ユニ ッ ト と し て の 形式 を 第 4 章 を 参 
照 し て 整え な けれ ば な り ま せん 。 ユ ニッ ト に し て お く と マウ ス 利 用 の プロ グラ ム の 開発 
が ぐん と 楽に な り ま す の で 、 ぜ ひ ユ ニッ ト 化 を お すす めし て お きま す 。 

余談 で す が 、 こ の CtrLKK 、KB 、KW で プロ グラ ム の 一 部 を フロ ッ ピ ー に 格納 す 
る 方 法 は 便利 で す 。 た と えば 、 い ま エ ディ ッ ト し て いる TURBO Pascal の プロ グラ ム ・ 
ファ イル が ABCD.PAS の と き に 、 こ れ を 改造 し た プロ グラ ム を 作る と 同じ 名 前 で し か 
格納 で き な い の で 、 改造 前 の プロ グラ ム を と っ て お け ま せん 。 そ こ で 、 こ の 方 法 を 使う 
の で す 。 フ ァイル メニ ュー の Save as.… で も 同じ こと が 可能 で す が 、 そ れ よ り 手 軽 で す 。 

エディ タ て 改造 し た ABCD.PAS の 先頭 を Ctrl-KB 、 最 後 を KK と し て か ら Ctrl-KW 
と し て た と えば KAIZOU.PAS と すれ ば 、 改 造 し た ABCD.PAS を KAIZOU.PAS と し 
て フロ ッ ピ ー に 格納 する こと が で きま す 。OtrLKD で エディ タ を 抜け て 、 セ モー ブ す る か 
どう か の 質問 に N( ノ ー) を 返せ ば よい の で す 。 こ の テク ニッ ク は いわ ば コロ ンプ ブス の 卵 
Re と た で る も 代 に 立つ の で 、 像 えと お く と と いで し じゃ う 。 

さて 、 リ スト 6-1 を 眺め て み ま し ょ う 。 例 に よっ て 割り 込み を 使用 する の で 2 行 目 で 
Crt だ け で な く Dos ユニ ッ ト の 使用 を 宣言 し て お きま す 。 こ れ に より 内 部 レジ スタ に ア 
クセ ス す る た め の レ コー ド 変 数 型 Registers を 使用 で きま す 。 

5 行 目 は マウ ス 割 り 込 み ベ クタ を $33 と し 定数 定義 し て いま す 。 こ の 情報 は mouse.sys 
付属 の 資料 に より まし た 。 つ まり 、 マ ウス に な ん ら か の 操作 が 加え られ る と き に 、$33 


盾 < PP 2 に Rn 


113 


番 の 割り 込み に よっ て それ を 知る よう に な っ て いま す 。8 行 目 に 定義 きれ て いる 型 、 
CursorForm は 後 で マウ スカ ー ソ ル の 形状 を 作る と き の ビ ッ ト 情 報 デ ゲー タ を 入れ る 変数 
を 作る と き に 使い ます 。 

マウ ス の 処理 の た め の 関 数 、 手 続き は 11 行 目 か ら 始 まり ます 。 マ ウス ドラ イ バ は 0 
ー 18 まで の 16 個 の ファ ンク ショ ン (機能 ) を 実行 で きま す 。0 一 18 な ら 合計 19 個 の 
は ず で す が 、 フ ァ ン クシ ョ ン の 10 、13 、14 は 欠番 で す 。 フ ァ ン クシ ョ ン 番 号 を A レ 
ジス タ に ロー ド し て 割り 込み を か ける と 、 各 種 機能 が 実行 で きま す 。 

11 行 目 は マウ ス 環 境 の チェ ッ ク の 関数 Initial で す 。17 行 目 の A レジ スタ を 0 に 設定 
し て いる の は $33 の 割り 込み を 18 行 目 で 行う 前 に 、 そ の 割り 込み が マウ ス 環 境 の チェ ッ 
ク で ある こと を デバ イス ・ ド ライ バ mouse.sys に 知ら せる 役目 が あり ます 。 こ の 方 式 は 
以下 の 各 手 続き 、 関 数 で 共通 し て いま す 。 チ ェ ッ ク の 結果 は 18 行 目 の 割り 込み の 結果 
と し て レジ スタ に 返さ れ ま す 。A レジ スタ が 0 な ら マ ウス が 使用 で き な い 環境 、 一 1 な 
ら で き る 環境 で す 。 そ の 値 を この 関数 Initial の 値 と し て 返し ます 。 

この ファ ンク ショ ン 1 の 初期 化 に よっ て 次 の よう に デフ ォ ー ル ト が 設定 され ます 。 

| マウ ス 割 り 込み 周期 | 8ms 。 。 | 

23 行 目 の 手続 き Indication は マウ スカ ー ソ ル を 画面 に 表示 させ る 手続 き で す 。 ファ 
ンク ショ ン 0 か 次 の マウ スカ ー ソ ル を 消去 する ファ ンク ショ ン 2 を 実行 する まで 有効 
で す 。34 行 目 の 手続 き Erase は 、 表 示さ れ て いる マウ スカ ー ソ ル を 画面 に 表示 させ な 
くす る 手続 き で す 。 こ れ は ファ ンク ショ ン 1 、 つ まり Indication を 実行 する まで 有効 で 
す 。 ま た 、Erase を 複数 回 使用 し た 場合 は 、 そ の 回 数 と 同一 回 数 Indication で ファ ンク 
ショ ン 1 を 実行 し な いと マウ スカ ー ソ ル は 表示 され ませ ん 。 よ く こ の 手続 き を 何 度 も 呼 
び 出 し て マウ ス が 「 行 方 不明 」 に な る こと が あり ます か ら 、 何 度 呼 ん を だ の か を きち ん と 
追跡 し て お か ね ば な り ま せん 。 

45 行 目 は ファ ンク ショ ン 3 の 関数 Position で す 。 マ ウス の ボタ ン の 状況 と マウ スカ ー 
ソル の 現在 の 表示 位置 を 取得 する 関数 で す 。54 、55 行 目 で ボタ ン の 状態 が A 、B、C、 
D レジ スタ に 出力 され ます 。C 、D レジ スタ の マウ スカ ー ソ ル の 表示 位置 は 画面 の 左 隅 
を 座標 原点 と し 、 右 に 向かっ て 又 座 標 (0 一 639) 、 下 に 向かっ て Y 座標 (0 - 399) に 
な り ま す 。A 、B レジ スタ に 返さ れる ボタ ン の 状態 は 次 の よう に な っ て いま す 。 

AX = 左 ボ タン の 状態 
0 : 左記 タン が 離さ れ て いる 。 
ー 1 : 左 ボ タン が 押さ れ て いる 。 


114 GAPTPR6. ターボ ポ ・ マ ウス 


BX = 右 ボ タン の 状態 
0 : 有 ボタ ン が 離さ れ て いる 。 
ー 1 : 太 ボ タン が 押さ きれ て いる 。 

この 状態 を 関数 値 と し て 外 へ 取り 出す た め に 、54 行 目 で 10 進数 の 10 の 位 に 左 ボ タ 
ン の 状態 、1 の 位 に 右 ボ タン の 状態 を 入れ て いま す 。 こ れ は あま り ス マー ト で は な い の 
で 、 論 理 変数 を 使っ て も っ と か っ こよ く 作 れる は ず で す が 、 そ れ は 読者 に お まかせ し て 
お きま す 。 

61 行 目 は マウ スカ ー ソ ル の 位置 を 設定 する 手続 き で 、 フ ァ ン クシ ョ ン 4 に な り ま す 。 
各 座 標 の 設定 値 の 範囲 は 、 水 平 座標 が 0 一 639 、 垂 直 座 標 が 0 一 399 で す 。 こ れ を こ 
える 範囲 を 指定 し た と き に は 、 移 動 範囲 内 の 端 に マウ スカ ー ソ ル を 移動 し ます 。 

74 行 目 の 関数 、Left_Press と 91 行 目 の 関数 、Left_Release は マウ ス の ボタ ン の 押下 
と 解放 に 関す る 情報 を 取得 する 関数 で す 。 こ れ が ファ ンク ショ ン 5 と 6 に な り ま す 。 む 
ろ ん 、 こ の 2 つの 関数 を ひと つ に まとめ て 左 ボ タン の 押下 ・ 解 放 情報 を た を る た め の 関 数 
を 自作 し て も よい で し ょ う 。84 行 目 は 左 ボ タン 押下 時 に 一 10 、 解 放 時 に は 0 に 関数 値 
を する た め の も の で す 。85 行 目 の count に は この 関数 が 最後 に 呼ば れ て か ら 、 今 回 呼 
ば れる まで に 左 ボ タン が 押さ れ た 回 数 が 入り ます 。LastX と LastY に は 最後 の 左 ボ タ 
ン 押 下 時 の 座標 値 で す 。91 行 目 の 関 数 Left_Release は Left_Press の 押下 と 解放 を 逆 に 
じ た も の で す 。 

108 行 目 の 関数 Right_Press と 125 行 目 の 関数 Right_Release は 上 の 左 ボ タン 用 の 関 
数 を 右 ボ タン 用 に し た も の で す 。 

142 行 目 の 手続 き Set-Shape は マウ スカ ー ソ ル の 形状 を 設定 し ます 。 フ ァ ン クシ ョ ン 
9 に な り ま す 。 カ ー ソ ル の 形 は 、 横 1 ワー ド (16 ビッ ト ) 、 縦 32 ワー ド の デー タ の ドッ 
トバ パタ ー ン で 表し ます 。32 ワー ド の うち 始め の 16. ワ ー ド の パタ ー ン で グラ フィ ッ ク 画 
面 と . AND を と り 、 次 の 16 ワー ド で XOR を と り ま す 。 し た が っ て 、 後 の .16 ワー ド よ 
り 1 回 り 大 きい 反転 パタ ー ン を 先 の 16 ワー ド に 設定 する こと に よっ て 、 カ ー ソ ル を 黒 
い 緑 で 枠 付け する こと が で きま す 。 ま た 、 カ ー ソ ル の 中 心 と は カー ソル の 左上 隅 を (0.0) 
と し た 座標 系 で 与え ます 。 
カー ソル 形 の デー タ 例 


の 00111111111111111 

の 00101111111111111 まし 
32 行 

の 。 00000000000000000 


158 行 目 の Movement は 、 マ ウス の 移動 距離 を 取得 する 手続 き で 、 フ ァ ン クシ ョ ン 
11 で す 。 こ の 手続 き が 最後 に 使用 きれ て か ら の ち マ ウス が 動か され た 距離 が 得 ら れ ま 
す 。 距離 の 単位 は ミッ キー な の で ファ ンク ショ ン 15 に よっ て 設定 きれ た ミッ キー/ ド ッ 
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ト 比 に よっ て 画面 で カー ソル が 動い た 距離 と 現実 に マウ ス が 机上 を 移動 し た 距離 と は 
異な っ た 値 が 得 ら れ ま す 。 ミ ッ キ ー と は マウ ス の 物理 的 な 移動 距離 を 表す 単位 で す 。1 
ミッ キー は 約 1/100 イン チ ( 約 0.25mm) で す 。 こ の 単位 は 「 ミ ッ キ ー マ ウ ス 」 か ら の 
連想 で し ょ うか 。 カ ー ソ ル の 動い た 距離 で は な く マ ウス が 実際 に 動い た 距離 で すか ら 
カー ソル が 移動 範囲 の 隅 に あり 動け な い 場 合 で も マウ ス が 動く か ぎり 距離 は カウ ント さき 
な まず 。 

171 行 目 の Set_Call は マウ ス の 状態 に より ユー ザー が 記述 し た サブ ルー チン を 呼び 
出し (コー ル し ) て 実行 きせ る た め の 条 件 を 設定 する も の で す 。 コ ー ル する 条件 と サブ 
ルー チン の 入口 アド レス を 設定 する 手続 き で す 。 こ れ が ファ ンク ショ ン 12 で す 。178 行 
目 の コ ー ル 条件 に は 下記 の 5 つが あり ます 。 


ビッ ト 0 ニカ ー ソ ル 位 置 の 変化 | 最 下 位 ビ ッ ト を 
1 三 和 有 用 ボ タン が 押さ れる 0 で 、 
2 = 右 ボ タン が 離さ れる ッ ト が 1 の と き 
3 = 左 ボ タン が 押さ れる その 条件 発生 で 
4 = 左 ボ タン が 離さ れる コー ル 要 求 
5 一 15 三 未 使用 
コー ル 条 件 が 発生 する と ドラ イ バ ベ は セグ メン ト 外 サブ ルー チン コー ル 命 令 を 使っ て 
ユー ザー サブ ルーチン を コー ル し ます か ら 、 そ の サブ ルー チン か らち ら 再び 戻る と き に は セ 
グ メ ント 外 リ ター ン 命 令 を 使用 し ます 。 ま た 、 こ の Set_Call は レジ スタ に 下記 の 情報 
を 用 意 し て ユー ザー の サブ ルー チン を コー ル し ます 。 
AX ニコ ー ル の 原因 と な っ た 現象 、CX に 設定 する パラ メー タ と 同じ 。 
ビッ ト が 1 に な っ て いる 現象 が コー ル 原 因 と な っ た 
= テ ボ タン の 状態 
ビッ ト 0= テ 0: 左 ボタ ン が 離さ れ て いる 。 
1 : 左記 タン が 押さ きれ て いる 。 
1 =0: 右 ボタ ン が 離さ れ て いる 。 
1 : 右 ボタ ン が 押さ きれ て いる 。 
CX = カーソル の 水平 座標 
DX ニカ ー ソ ル の 垂直 座標 
185 行 目 の Set_Mickey_Dot は 、 マ ウス の 物理 的 な 移動 距離 ミッ キー と それ に 対す る 
カー ソル の 移動 ドッ ト 数 と 比 を 設定 する 手続 き で す 。 水平 、 垂 直方 向 そ れん ぞ れ に 対し 
て 、 カ ー ソ ル が 8 ドッ ト 移 動 す る の に 要する マウ ス の 移動 量 を ミッ キー の 単位 で 設定 
し ます 。 た だ し 、 0 に 設定 する と 何 も むし な いで 戻っ で きま す 。 これ が ファ ンク ショ ン 15 
で す 。 
198 行 目 の 手続 き Move_Set_X と Move_Set-Y は マウ スカ ー ソ ル の 移動 範 囲 を それ ぞ 
れ 水 平方 向 (X 方 向 ) と 垂直 方 向 (Y 方 向 ) に 設定 する た め の も の で す 。 も むろ ん 、 水 平方 
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向 は 0 一 639 、 垂 直方 向 は 0 一 399 の 範囲 内 と な り ま す 。 

最後 の 224 行 目 の 手 続き Set_Plane は マウ スカ ー ソ ル を グラ フィ ッ ク 画 面 の 何 番 プ 
レー ン に 表示 する か を 決め ます 。B レジ スタ に カー ソル の 表示 プレ ー ン と し て 0 一 3 を 
指定 し ます 。 各 画面 の 初期 値 は プレ ー ン 0 か ら 順 番 に 青 、 赤 、 緑 、 灰 色 と な り ま す 。 

以上 が マウ ス ・ ド ライ バ mouse.sys を 使用 し た TURBO Pascal の マウ ス 機 能 ル ー チ ン 
で す 。 こ れ を 利用 すれ ば ほとん どの マウ ス 動 作 を サポ ー ト で きる は ず で す 。 も し 、 も っ 
と 特殊 な こと を や ら せ た けれ ば 先ほど の ファ ンク ショ ン 12 の Set_-Call を 使え ば よい で 
まう 

その 例 と し て 235 行 目 か ら ユ ー ザ ー 定 義 ル ー チ ン を 作っ て あり ます 。 ユ ー ザ ー 定 義 
ルー チン は 割り 込み プロ グラ ム に な り ま す の で 、 少 々 特殊 な 注意 が 必要 で す 。 詳しく は 
日 本 に お ける TURBO Pascal の 販売 を 行なっ て いる MSA( マ イク ロ ソ フト ウェ ア ・ ア 
ソシエ イツ ) 社 が 頒布 ディ スク に 入れ て くれ て いる マウ ス 用 の サン プル プロ グラ ム を 参 
考 に し て くだ さい ぃ い 。TURBO Pascal ディ スク に は 他 に も いろ いろ と 参考 に な る サン プ 
ルプ ログ ラム が 豊富 に 入っ て いる の で 、 と て も 勉強 に な り ま す 。 

さて 、 そ の サン プル プロ グラ ム を 参考 に し て 作っ た の が ユー ザー 定義 ルー チン 、TestRt 
で す 。 ま ず 、 ス タッ ク の チェ ッ ク を 止め させ 、 発 生 す る コー ド が セグ メン ト 外 コー ル を 
使用 する た め に 236 行 目 の コン パイ ラ 指 令 を 入れ て お きま す 。239 行 目 で 割り 込み 禁止 
に し ます 。 こ の ルー チン の 内 容 自体 は 240 行 目 の ブザー 鳴動 の み で す 。 つ まり 、 こ の 
ルー チン は 呼ば れる た びに ブザー を 鳴ら し ます 。 

242 255 行 目 まで の Inline 文 は マウ ス ド ラ イ バ と 組み 合わ せ て ユー ザー 定義 ルー チ 
ン を 作る と き に は 必ず この 終了 法 を 使用 し ます 。 こ の 情報 は 先ほど の MSA の デモ プロ 
グラ ム か ら 手 に 入れ まし た 。 こ の 内 容 は TURBO Pascal の 手続 き が どの よう に 引数 を 
渡し た り 、 レ ジス タ を 保存 する の か が わか ら な いと 何 を や っ て いる の か よく わか ら な い 
は ず で す 。 こ こ で は あま り 気 に し な いで この を お り る を ま 板 必 で お け ば よめ で 作 よ 9388 ご 
の 形式 で ユー ザー 定義 ルー チン を 終了 し な いと 、 ほ と ん どの 場合 暴走 する か 、 運 よく 正 
常に 終了 し た か に 見 えて も MS-DOS 自体 が まとも に 動か な く な っ て し まい ます 。 

こう し て 作り 上 げた マウ ス 機 能 用 の 関数 と 手続 き 、 そ し て ユー ザー 定義 ルー チン の 使 
用 法 を デモ する の が 259 行 目 か ら の メイ ンプ ログ ラム で す 。261 行 目 の 整 数 型 変数 は マ 
ウス ボタ ン の 押下 情報 を 手 に 入れ る た め の 関 数 呼び 出し 時 に ダミ ー (どう で も よい ) の 
引数 と し て 必要 な も の で す 。 

262 行 目 の cdata は 8 行 目 の 型 宣 言 で 32 個 の word 型 の 配列 で ある CursorEorm 型 
と し て いま す 。 こ れ は 後 で や ヤマ ウス カー ソル の 形状 を 指定 する た め の も の で す 。 

まず 、266 行 目 で 関数 Initial を 呼び 出し て 、 マ ウス が 使用 で きる 環境 か どう か を チェ ッ 
ク し ます 。 こ の 関数 が 0 で ある と き に は マウ ス が 使え な い の で 、 プ ログ ラム を 終了 し 
まず 。 

272 行 目 で マウ ス の 形状 と し て フル の 四角 形 を 設定 し ます 。 な お ろ ん 、 こ こ で ビッ ト を 
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構成 し て ネズ ミ の 形 に し て も 決し て 悪く は な い の で す が 、 そ こま で の 遊び は 実例 を 示す 
こと に は 直接 関係 な い の で や め て お きま し た 。 プ ログ ラム の 以下 の 部 分 で は 右 ボ タン 押 
下 で 停止 、 左 ボタ ン 押 下 で プ ブザー が ユー ザー 定義 シー チン に より 鳴動 する よう に し て い 
ます 。 

276 行 目 で Dos ユニ ッ ト の 手続 き で ある TextCursor に より テキ スト カー ソル を 画面 
か ら 隠 し て お きま す 。 こ うし て お か な いと 、 マ ウス の デモ 中 に 画面 で 四角 い テ キス ト 
カー ソル が チカ チカ 点 減 する の で 目障り に な り ま す 。 

277 行 目 で カー ソル の 形状 を cdata に も と づき 四角 に 設定 し 、278 行 目 で それ を 画面 
の 中 心 に 位置 きせ て お きま す 。 も っ と も 、 こ れ は 最初 の Initial に より デフ ォ ー ル ト で 
そう な っ て いる の で 、 必 ず し も ゃ 必要 あり ませ ん 。 

279 行 目 の Indication に より 画面 に マウ スカ ー ソ ル が 現れ ます 。280 、281 行 目 で 画 
面 全体 を マウ スカ ー ソ ル が 移動 で きる よう に 範囲 設定 を 行ない ます 。 

282 行 目 の Set_Call は 第 1 パラ メー タ が $2 、 つ まり 第 1 ビッ ト が 立っ て いま すか ら 、 
左 ボ タン が 押下 され る と 第 2 、 第 3 パラメータ で セグ メン ト と オフ セッ ト が 指定 され て 
いる ユー ザー 定義 ルー チン TestRt を 呼び 出し ます 。 つ まり 、 左 ボタ ン 押 下 で ブザー 鳴 
動 し ます 。 

285 行 目 は 右 ボ タン 押下 まで プロ グラ ム を 繰り 返す た め の も の で す 。 右 ボタ ン が 押下 
され る と Right_Presss 関数 値 が - 1 に な る の を 利用 し て いま す 。 

287 行 目 以下 は 終了 の た め の 処 理 で す 。OlrScr に より 画面 の テキ スト を 消去 し て 、 
Erase に より マウ スカ ー ソ ル を 画面 か ら 消 し 去り ます 。 最 後に 290 行 目 で Dos ユニ ッ ト 
の TextOursor 手続 き に より 隠し て あっ た テキ スト カー ソル を 復活 し ます 。 

こう し て 作っ た プロ グラ ム を 走ら せる と き に は 、 そ の 前 に 、 上 に 説明 し た よう に ディ 
スク の 中 に mouse.sys が ある か 確か め 、mouse.sys を config.sys ファ イル に 加え て ます 。 
つま り 、device = mouse.sys の 1 行 を 加え る の で す 。 

以上 で プロ グラ ム の 解説 は 終り です 。 い まま で どう や っ て マウ ス を 制御 し て いた の か 
不思議 に 思っ て いた こと が 解決 し た の で は な いで し ょ うか 。 こ こ で 紹介 し た マウ ス の 機 
能 の ほとん ど は 前 述 の ディ スク の 中 に 収め られ て いま す が 、TURBO Pascal の ソー ス 
コー ド と し て 記述 し た リス ト 6-1 の サン プル プロ グラ ム の ほう が どう な っ て いる の か よ 
くわ か る で し ょ う 。 せ むず か し い の は ユー ザー 定義 ルー チン の 作り 方 で す が 、 マ ウス の 条 
件 に より いろ いろ な こと を や る ルー チン を 作っ て みて 実験 し て くだ さい 。 


ター 丈 フ バッ クス 


オプ ジェ クト 指向 で グラ フィ ックス 


パソ コン で プロ グラ ム を 作る 楽し き は な ん と いっ て も パソ コン の 強力 な グラ フィ ッ ク 
機能 の 活用 に あり ます 。 し か し 、 こ こ に 大 き な 問 題 が あり ます 。 グ ラフ ィ ッ ク 機 能 は パ 
ソコ ン の 個性 その も の で すか ら 、 パ ソコ ン の 機種 ご と に 異な る 仕様 に な っ て いま す 。 同 
じ 図 形 を 描く の で も 微妙 な と ころ が 違う の で 、 標 準 の Pascal で も グラ フィ ックス に つ 
いて は 何 も 命 令 が あり ませ ん 。 で すか ら 、 標 準 の Pascal で は パソ コン の 機能 を 十分 に 
引き 出 才 宣 を は で きま せん 。 

と ころ が 、TURBO Pascal は いか に パソ コン の プロ グラ ミン グ を サポ ー ト する か を 第 
ー に 設計 され た コン パイ ラ で すか ら 、 グ ラフ ィ ッ クス に つい て も 簡単 に プロ グラ ミン グ 
で きる よう に 十分 配慮 され て いま す 。TURBO Pascal の ver4.0 以上 で は BGI(Borland 
Graphics Interface・ ボー ラン ド ・ グ ラフ ィ ッ クス ・ イ ンタ フェ ー ス ) が 付属 し て いま す 。 
この グラ フィ ックス ドラ イ バ を 利用 する こと に より 、 多 彩 な グラ フィ ックス を プロ グラ 
ム に 組み 込む こと が 可能 で す 。 

BGI は プロ グラ ム 上 に は 直接 現れ ませ ん 。 プ ログ ラム 的 に は TURBO Pascal に 付属 
し て くる Graph.tpu と いう ユニ ッ ト を uses 宣言 し て 、58 種 の 手続 き と 22 種 の 関数 に 
より グラ フィ ックス を 実現 し ます 。 し か し 、 こ の Graph.tpu を 使用 し た と き に は 、 必 ず 
BGI を 組み 込ん で コン パイ ル し な いと プロ グラ ム が 動作 し ませ ん 。 

具体 的 な 組み 込み 手順 は 本 書 の 姉妹 編 で ある 「 TURBO Pascal トレ ー ニ ング マニ ュ 
アル 」 に 基本 的 な こと が 書い て あり ます が 、 こ の 章 で は グラ フィ ックス 活用 の 観点 か ら 
も う 少 し 突っ 込ん だ 解説 を し ます 。 さ ら に 、 グ ラフ ィ ッ クス を プロ グラ ミン グ す る 上 で 
の テク ニッ ク も いく つか の 例題 を 通し て 解説 し ます 。 


な つか し の ゲー ム に 挑戦 
7ーlm ア ニメーション 

グラ フィ ックス と は 要する に コン ピュ ー タ で 絵 を 描く こと で す 。 プ ログ ラム を 作り 始 
め た ころ は スク リー ン に 丸 や 四角 を いろ いろ な カラ ー で 描い て いる だ け で も うれ し いも 
の で す が 、 そ れ で は すぐ に 飽き て し まい ます 。 飽き て し まう 最大 の 理由 は 描い た 図形 が 
動か な いこ と で す 。 
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むろ ん 、 図 形 が 動か な く て も すばらし い グ ラフ ィ ッ クス が 作れ ます 。 そ ちら の ほう は 
これ も 本 書 の 姉妹 編 で ある 「 タ ー ボ グラ フィ ックス 」 に 詳し く 解 説き れ て いま す 。 こ こ 
で 届 ま ず ア ニル ョ Sa ジジ あ 由 上 で ま レ ー ニ ング し まま パソ ユン の 宛 ニ メー ショ シ 
は わか っ て し まえ ば 簡単 な 原理 を 使用 し て いま す 。 も し も あな た が お も し ろ い ゲー ム を 
作っ て みよ うと いう の 欠か すこ と の で き な い テク ニッ ク で す 。 

画面 上 で 図形 を 動か す に は 次 の 順序 で 動い て いる よう に 見 せる の が 常 奏 手 段 で す 。 


(1) 図形 を 描く 
(2) 図形 を 隠す 
(3) 数 ピク セル (画素 ) ずれ た と ころ に 図形 を 描く 
(4) (1) ~- (3) を 繰り 返す 
) 


(1) で 画面 に 現れ た 図形 が (2) で 消さ れ て も 、 そ の 図形 は 目 の 中 に 残像 と し て し ば ら 
く 残 っ て いま す 。(3) で 残像 の すぐ 近く に 同じ 図形 を 描か れる と 、 目 に は 図形 が 移動 し 
た よう に 見 を えま す 。 こ れ を 繰り 返せ ば アニ メー ショ ン が で きる わけ で す が 、 動 き の な め 
ら か な アニ メー ショ ン を 作る に は さら に 少々 テク ニッ ク が 必要 で す 。 

理想 的 を いえ ば 、(3) で 1 ピク モル だ けず れ た と ころ に 図形 を 描け ば 、 一 番 動 き が な 
め ら か に な る は ず で す 。 画面 の 図形 の 最小 単位 が 1 ピク セル で すか ら 、 そ れ 以 下 に 細か 
《 図形 を 移動 する こと は 物理 的 、 つ まり ハー ド 的 に 無理 な 相談 で す 。 そ れ な ら そ うす れ 
ば よい で は な いか と いう こと に な り ま す が 、 そ う は いか な い 事 情 が あり ます 。 フ パソ コン 
の 処理 速度 と の 関係 で 、1 ピク セ モル ずつ の 移動 で は アニ メー ショ ン が 極度 に 低速 に な っ 
て し まう か ら で す 。 そ の 対策 と し て 、 不 自然 に 見 えな ぃ 範囲 で ぎり ぎり の ピク セル 数 
で 移動 きせ て や れ ば 、 ア ニメーション の 速度 は 向上 し ます 。 

こう し た と し て も 、 ま だ 問題 が な あり ます 。 動か そう と し て いる 図形 が か な り 複 雑 だ 
と 、 画 面 上 で その 絵 を 描い て いる 過程 が 見 えて し まい ます 。 む ろ ん 、CPU の 処理 速度 
が か な り 速 けれ ば 、 複 雑 な 図形 で も 一 瞬 に 描く こと が で きま す 。 し か し 、 現 在 の パソ コ 
ン で は 円 で さえ も 、 ち ょ っ と 大 きく な る と 描く の が 見 えて し まい ます 。 

以上 の こと を 頭 に 入れ て 、 リ スト 7-1 を 見 て くだ さい 。 こ の 例 で は な つか し の パッ ク 
マン も どき を 画面 上 で 動か し ます 。 


較 リ スト 7-1 
: program LIST7_1: 


: uses Crt,Graph : 


4 / 

GraphDriver ,GraphMode : integer : 

active , Visua] , temD : word: 

XCenter , YCenter , Radius , StAngle, EndAngle : integer: 


CC の ココ の の 必 の 〇 ビビ 
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C 朋 APTDR2 グー ボッ クボ ディ ックス 


: (グラフィック ドラ イ バ の 初期 化 } 


: procedure Initia]ize: 


: begin 
GraphDr1ver := detect: s 
InitGraph(GraphDriver , GraphMode ,”)) : 
if not(GraphDriver in [PC98,PC98HT] ) then 
begint グ ラフ ィ ッ ク ド ラ イ バ が な い } 
RestoreCrtMode : 
WriteLn() グラ フィ ッ ク ド ライ バ が あり ませ ん 。 う ): 
Ha1t 
end : 
SetCo1or(Red) : 
SetFi11Sty1e(So1idFi11 ,B1ue) : 
XCenter := 10: 
YCenter := GetMaxY div 2: 
StAngle := 0: 
Radius := 10: 
active := 0: 
Yisua1] := 1 
: end: 
ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー } 


: {パッ クマ ン を 描く + 


: Procedure Draw_Pacman : 


: begin 


Cl1earViewPort: 
if StAng1e = 0 then 
begin 
StAngle := 30: 
EndAngle := 330: 
end 
e1se 
begin 
StAngle := 0: 
EndAngle := 360: 
end : 
PieS1ice(XCenter, YCenter , StAng1e , EndAng]e,Radius) 


: end: 


: begin 


Tn1it1a11ze: 
whi]e not KeyPressed do 
begin 
SetActivePage(active) : 
SetVisua1Page (visua] ) : 
Draw_Pacman : 
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59: temp := activeit 画 面 切り 替え } 
60: act1ive := V1Sua] : 
61 : Visua] := て temp 
0 XCenter := XCenter + 10: 
63: ュ if XCenter>649 then 
64 : begint 新 し い パ ッ ク マ ン 生 成 } 
65: XCenter :=10: 
66: SetCo1or(Random(GetMaxCo1or)+1) : 
67: SetFi11Sty1e(So1idFi11 ,Random(GetMaxCo1or)+1) : 
68: end 
69: end : 
70:  C1oseGrapht グ ラフ ィ ッ クス 使用 終了 }+ 
71: end. 


3 行 目 で Crt と Graph ユニ ッ ト の 使用 を 宣言 し て お きま す 。5 行 目 の 変数 宣言 で は 特 
に 6 行 目 の グラ フィ ックス ドラ イ バ を 初期 化す る と き の 定 石 の た め の 変数 に 注意 し て く 
だ きい ぃ 。 7 、8 行 目 の 変数 は プロ グラ ム に 現れ た と ころ で 説明 し ます 。 

まず 、11 行 目 か ら 始 まる 手続 き Initialize で す 。 こ の 手続 き で 大 切な の は グラ フィ ッ ク 
ス 使用 の た め の 準 備 手順 で す 。13 行 目 で は 、 使 用 する グラ フィ ックス ドラ イ バ を パソ コ 
ン の グラ フィ ックス ハー ド に 合わ せ た も の と する た め 、Graph ユニ ッ ト の 定数 、detect 
に し て いま す 。 こ うす る と 、PC-9801 の 機種 に より ノー マル 表示 に は PC98 、 ハ イレ ゾ 
表示 に は PC98HI の いずれ か の グラ フィ ックス ドラ イ バ を 使用 で きる よう に な り ま す 。 

こう し て お いて 14 行 目 で InitGraph を 呼び 出す と 、detect に より 使用 し て いる パソ 
コン に 亡 じ て グラ フィ ックス ドラ イ バ を セッ ト し 、 グ ラフ ィ ッ クス の モー ド を 640 ※ 400 
ドッ ト の 8 色 モ ー ド また は 16 色 モ ー ド に セッ ト し ます 。3 つめ の パラ メー タ の "” は グラ 
フィ ックス ドラ イ バ 、BGI を 拡張 子 に 持つ ファ イル カレ ント ディ レク トリ 上 か ら さ が す 
と いう 指定 で す 。 こ れ が た と えば SAMPLE と いう ディ レク トリ 上 に な る の な ら 、 こ こ 
は ' 学 SAMPLE' と し ます 。 

InitGraph か ら 返 され た ドラ イ バ が PC-9801 の グラ フィ ックス 用 ハー ド に 適合 する か 
どう か 15 行 目 で 調べ ます 。 グ ラフ ィ ッ ク ド ラ イ バ が な けれ ば ここ で エラ ー メ ズ メッセー ジ 
を 出力 し て プロ グラ ム を 停止 し ます 。17 行 目 で 手続 き RestoreCrtMode を 呼び 出し て 
いま す が 、PC-9801 は グラ フィ ックス と テキ スト の 同時 表示 が 可能 で すか ら 、 こ れ は 必 
要 あ り ま せん 。 こ の プロ グラ ム を IBM-PC 互換 機 で 動か す と き に は 必要 で す 。21 行 目 
以降 は グラ フィ ッ ク ド ライ バ の 組み 込み に 成功 し て か ら 実 行 さ れ ま す 。 

21 行 目 で これ か ら 描 く 図 形 の 線 を 赤 に 指定 し 、 図 形 の 内 部 を フィ ルレ する と き に は べ 
タ 塗 りす る こと を 指定 し ます 。23 、24 行 目 で これ か ら 描 く キ ャ ラク タ の 中 心 点 を 画面 
左端 の 真ん中 に し ます 。46 行 目 で キャ ラク タ を 描く 具体 的 な 方 法 と し て 扇形 グラ フ 描 
画 の 手続 き PieSlice を 使用 し て いま す 。 そ の た め の 出 発 角 を 25 行 目 で 0 度 に し て いま 
す 。 26 行 目 は キャ ラク タ の 大 き さ で 、 半 径 10 ピク セル に し て いま す 。 
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27 、28 行 目 で 変数 active と visual に それ ぞ れ 0 と 1. を 入れ て いま す 。 こ こ で は 
PC-9801 の GVRAM プレ ー ン 0 番 と 1 番 を 利用 し ます 。active で 指定 され た プレ ー ン 
に 絵 を 描き 、visual で 指定 され た プレ ー ン を 表示 する よう に し て いま す 。 実 は この プロ 
グラ ム で は プレ ー ン 0 と 1 を 交互 に 表示 させ る こと に より 、 キ ャ ラク タ を 描い て いる 過 
程 が 外 か ら 見 えな いよ うに し て いる の で す 。 

32 行 目 の 手続 き 、Draw_Pacman で は Graph.tpu で 提供 され て いる 手続 き PieSlice 
に より キャ ラク タ が 日 を 開け て いる と ころ と 閉じ て いる と ころ を 描き ます 。 ま ず 、35 行 
目 で 以前 に 描い た キャ ラク タ を 消し て か ら 、 開 始 角度 の 違い に より 描き 分 け ま す 。 

36 行 目 で は 以前 に 描か れ た キャ ラク タ は 日 を 閉じ て いま すか ら 、 今 度 は 扇形 を 30 一 
330 度 に 描き 、 日 を 開い て いる 形 に し ます 。 そ う で な けれ ば 口 を 開い て いた の で すか ら 、 
41 行 目 以下 で 0 - 360 度 で 口 を 閉じ た 形 に し ます 。 こ う し て お いて 46 行 目 で キャ ラク 
タ を 描き ます 。 こ の と き 、HInitialize 手続 き で 線 を 赤 、 フ ィ ル を 青 の ソ リッ ド に し て あぁ 
り ま すか ら 、 輪 郭 が 赤 で 中 が 青い キャ ラク タ が 描か れ ま す 。 

52 行 目 か ら が メイ ンプ ログ ラム で す 。54 69 行 目 を な に か キー が 押さ れる ま て で 続け 
ます 。56 行 目 で グラ フィ ックス 出力 の 対象 、 つ まり 描画 の 対象 に な る 画面 を 決め ます 。 
最初 は 27 行 目 に より プレ ー ン 0 番 が 描画 対象 で す 。57 行 目 で プレ ー ン 1 番 を 画面 表 
示 の 対象 に し て いま す 。58 行 目 で 手続 き Draw_Pacman を 呼び 出す と 、 描 画 対 象 画面 
で ある プレ ー ン 0 番 に 日 を 閉じ た キャ ラク タ が 描か れ ま す 。 し か し 、 表 示 対 象 画面 は プ 
レー ン 1 番 な の で 、 そ れ は 表示 され ませ ん 。 

こう し て お いて か ら 、59 一 61 行 目 で 描画 対象 と 表示 対象 の プレ ー ン 番号 を 変換 し て 
お きま す 。62 行 目 で キャ ラク タ 、 つ まり 扇形 の 中 心 の 座標 を 有 へ 10 ピク セル 進め 、63 
行 目 で XX 座標 が 画面 の 左端 に 行っ た と ころ で 新しい キャ ラク タ を 作り ます 。 新しい キャ 
ラク タ は 画面 左 の 10 ピク セル 目 が 中 心 で 、 輪 莉 や 中 の 色 は 乱数 で 決め て いま す 。 

キー を 押下 し な い 限 り 再び 54 - 69 行 目 が 実行 され ます 。56 、7 行 目 で 描画 対象 
画面 と 表示 対象 画面 が 今度 は それ ぞ れ プレ ー ン 1 と 0 に な っ て いま す 。 そこで 手続 き 
Draw_Pacman を 呼び 出す と 、 さ き ほ ど プ レー ン 0 に 描い て お いた 日 を 閉じ た キャ ラク 
タ が 表示 きれ ます 。 そ し て プレ ー ン 1 に は 日 を 60 度 開い た キャ ラク タ が 描か れ ま す 。 
つま り 、 こ れ を 右 へ 10 ピク モル ずつ 進め な が ら 交 互 に 表示 する こと に より 、 描 画 過程 
を 画面 で は 見 せな いで な め ら か に 移動 し て いる よう に 見 せ か け て いる わけ で す 。70 行 
目 で グラ フィ ックス の 使用 を 終了 し て プロ グラ ム を 終わ り ま す 。 

も し も あな た の パソ コン で は キャ ラク タ の 移動 が 速 す する と き に は 62 行 目 の 移動 速 
度 を 10 ピク セル 以下 に し て みて くだ さい 。.1 ビク セル に し て も 速 す ず ぎる よう だ っ た ら 
62 行 目 と 63 行 目 の 間 に 適当 な 時 間 遅 れ を 発生 する Delay 関数 を 入れ ます 。 

いずれ に し て も 、 こ この 例 で 示し た よう に Graph ユニ ッ ト を 使用 する と き に は 、13 
行 目 か ら の 一 連 の 手続 き を 定石 と し て 使う こと を 覚え て お いて くだ さい 。 も うい ち ど ま 
と め る と 、 以 下 の よ うに な り ま す 。 
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GraphDriver := detect: 
InitGraph(GraphDriver,GraphMode,””): 
if not(GraphDriver in [PC98,PC98HT] ) then 
begin 
グラ フィ ックス ドラ イ バ が な いと き の エ ラー 処理 : 
Ha1t: 
end: 


上 の 王 文 は InitGraph の 結果 を 返す 関数 GraphResult と 、Graph ユニ ッ ト の 定義 済 
み 定 数 GrOK を 利用 し て 、 次 の よう に 書い て も 同じ で す 。 


if GraphResu1t <> GrDK then 


ここ で 紹介 し た GVRAM プレ ー ン の 切り 替え は 簡単 な 割 に 効果 的 な アニ メー ショ ン 
効果 を えら れる テク ニッ ク で す 。 も っ と も PC-9801 の 初期 の モデ ル や U2 の よう な 吉 
い 機 種 ど と グラ フィ ックス ペー ジ (GVRAM) は 1 画面 分 し か あり ませ ん か ら 、 こ の テ 
ク ユ ネッ タ は 使 ま 芯 ん ぁ 


ビリ ヤー ド の 玉 を 動か す 
7ー2m オ ォ オブ プ ジ ェクト アニ メー ショ ン 


7-2-1m オ ブ ジ ェクト を 理解 する 

この 章 が グラ フィ ックス に 関す る と ころ な の に 、 な ぜ オ プ ジ ェ クト の 話 が 出 て きた の 
か 不思議 に 思わ れる か も し れ ま せん 。 オ ブ ジ ェクト に つい て は 、 な ん だ か よく わか ら な 
い が 、 と に か く コ ー ド と デー タ を 一 体 化す る プロ グラ ミン グ 手 法 な の で は な い の か と い 
う の が 一 般 的 な 理解 で は な いで し ょ うか 。 

オプ ブ ジ ェクト が 単なる 概念 的 な ちの で し か な い の で あれ ば 、 何 より も 実用 性 を 貴 ん で 
いる TURBO Pascal に 取り 込ま れ た は ず が あり ませ ん 。ver5.5 で オブ ジェ クト が 初め 
て 導入 され た と き に は な ん の た めか は っ きり し な か っ だ た の で す が 、ver6.0 で は オプ ジェ 
クト を 積極 的 に 使用 し た プロ グラ ム 開 発 環境 が 整え られ て いま す 。 た と えば 、ver6.0 に 
付加 され た TURBO Vision( タ ー ボ ビジ ョ ン ) は すべ て オプ ジェ クト を 利用 し て いま す 。 

そこ で 、 こ こ で は オプ ジェ クト の 完全 理解 と アニ メー ショ ン を ドッ キン グ し た トレ ー 
ニン グ を や っ て み ま す 。TURBO Pascal の マニ ュ ア ルセット に オブジェ クト 指向 プ ブログ 
ラミ ング (Object Oriented Programming) に つい て か な り 詳 し い 解 説 が あり ます 。 し 
か し 、 こ の 解説 は 厳密 き を 大 切 に し て いる た めか 、 少 々 「 お 固く 」 て 読ん で も な か な か 
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ピン と は きま せん 。 ば ぼく も 何 度 も 何 度 も 読み 返し 、 い ろ い ろ と 試行 錯誤 し た 挙げ 句 に 
や っ と 理解 で きま し た 。 も っ と も 、 そ れ は ぼく の 頭 が 悪い だ け で 読者 の あな た に は や さ 
し か っ た か も し れ ま せん 。 

TURBO Pascal の マニ ュ ア ル で は オブ ジェ クト に つい て 継承 性 (Inheritance : イン へ 
リタ ンス ) 、 カ プ セ ル 化 (Encapsulation : エン キャ プシ ュ レ ーション ) 、 そ し て 多 態 性 
(Plymorphism : ポリ モー フィ ズム ) と いう 3 つの 基本 的 性 質 か ら 理 解す る と いう 正 攻 
法 を 取っ て いま す 。 

それ は それ で 厳密 性 を 大 切 に する マニ ュ ア ル と し て は 正しい の で す が 、 オ プ ブ ジ ェクト 
指向 プロ グラ ミン グ を 理解 し が た い 上 難し いも の だ と いう 印象 を 与え て いる こと も 事実 で 
す 。 そ こ で 、 こ こ で は 例題 プロ グラ ム を 通し て 要する に TURBO Pascal の オブ ジェ ク 
ト 指 向 プ ログ ラミ ング を どう 利用 し て プロ グラ ム を きれ い に 素 早く 書く か と いう 実戦 面 
を 中 心 に 解説 する こと に し ます 。 

さて 、 例 と し て ビリ ヤー ド ・ テ ー ブ ル 上 に ボー ル が いく つか 投げ 出さ れ た と き の ア ニ 
メー ショ ン を プロ グラ ミン グ し て み ま す 。 こ の プロ グラ ム を 作ろ うと し た と き に 、 ま ず 
困る の は ビリ ヤー ド テ ー ブ ル や ボー ル を どう 表現 する か で す 。 そ こ で オブジェ クト 指向 
プロ グラ ミン グ が 威力 を 発揮 し ます 。 

オプ ジェ クト 指向 プロ グラ ミン グ で は 頭 の 中 に 浮か ん だ 「 モ ノ 」 を オブ ジェ クト と し 
て と ら え ます 。 こ の よう な 発想 法 は 今 ま で の プロ グラ ミン グ の それ と は 違う た め に か な 
り の 違和感 が あり 、 オ プ ブ ジ ェクト 指向 プログ ラミ ング は わか ら な いと 投げ 出さ れ て し ま 
う 最大 の 原因 に な っ て いま す 。 

この 例 を 頭 の 中 に 想像 する と 、 ビ リヤ ー ド テー ブル の 中 を お 互い に ぶつ か り 合 っ た 
り し な が ら 動 きま 回 る ボー ル が 「 モ ノ 」 ニ オプ ジェ クト と し て 浮か ん で きま す 。 む ろ ん 、 
ボー ル が 動き 回 る 環境 を 提供 し て いる 「 モ ノ 」 と し て の ビリ ヤー ド テ ー ブ ル も あり ま 
す が 、 ビ リヤ ー ド テー ブル は な ん ら か の 主体 性 を 持っ て いる も の で は な く 、 ボ ー ル に 対 
し て 動き 回 る た め の 環 境 を 提供 し て いる だ け で す 。 テ ー ブ ル が ボー ル に 与え る 摩擦 や 、 
ボー ル の 運動 範囲 を 制限 する テー ブル の 大 き さ や 、 運 動 方 向 に 影響 する テー ブル の 傾き 
な ど を 考え て くだ さい 。 そ の どれ も ボール と いう オブ ジェ クト に 影響 を 与 を る と 考え た 
ほう が 自然 で は あり ませ ん か 。 

ここ まで で 大 切な の は 、 何 が オプ ジェ クト な の か 、 そ し て その オブ ジェ クト が 存在 す 
る 環境 と は どの よう な も の か を は っ きり 分 け て 考え る と いう こと で す 。 こ こ で は オブ 
ジェ クト を 画面 に 表示 され る ボー ル と し て 、 環 境 は 画面 全体 と し ます 。 つ まり 、 画 面 全 
体 を 環境 と し て オブ ジェ クト で ある ボー ル が 複数 個 運動 する こと に な り ま す 。 

ここ まで 考え て か らい よい よ オ プ ブ ジ ェクト 指向 プロ グラ ミン グ で プロ グラ ム を 作り 
ます 。 オ プ ジ ェ クト と し て の ボー ル に は どの よう を な 属性 、 つ まり 性 質 が ある の で し ょ う 
か 。 そ れ を 環境 で ある 画面 と の 関係 で 考え る と 次 の よう な 属性 が あり ます 。 

リス ト 7-2 の 17 一 22 行 目 ま で を 見 て くだ さい 。 
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(X,Y) : 画 画 上 で の 位置 
Radius : 半径 
Id : 番号 
(XDirection,YDirection) : 移動 方 向 
Visable : 画面 表示 する か どう か 
Image : 形状 デー タ 


Image_Size : 形状 デー タ の 大 きき 形状 
こま で は ある ボー ル が 固有 に 持っ て いる 性 質 で す が 、 属 性 と し て ボー ル が どの よう 
に 運動 する か と いう 、 い わ ば 動 的 な 属 枯 も あり ます 。 それ が 24 一 31 行 肌 まで の メメ ッ 
ド で す 。 つ まり 、TURBO Pascal の オブ ジェ クト 指向 プロ グラ ミン グ で メソ ッ ド と 呼 
ば れ て いる の が オブ ジェ クト の 動 的 な 属性 な の で す 。 こ の 例 の オブ ジェ クト 、 ボ ー ル に 
oe 
Init : 環境 内 に 生れ る 
Done : 環境 か ら 消 減 する 
PutImage : 画面 に 現れ る 
Collisions : 他 の ボー ル と 衝突 する 
Bounce : 環境 と 衝突 する 
以上 を まとめ る と 、 オ プ ブ ジ ェクト の 静 的 お よび 動 的 な 属性 と し て 何 が ある の か を 並べ 
て し まう こと が 先決 と いう こと に な り ま す 。 あ と は 異な る 属性 を 持っ た ボー ル を 複数 個 
作っ て 環境 の 中 に 「 放 流 」 し て や れ ば 、 ボ ー ル 同士 が 衝突 し た り 環 境 の 端 、 つ まり 画面 
の 端 か ら 跳ね 返っ た りす る は ず で す 。 こ う し て 、 ボ ー ル の 静 的 属性 で ある デー タ と 動 的 
属性 で ある コー ド が 一 体 化し て いる こと こそ カプ セル 化 に ほか な り ま せん 。 
残る 問題 は ボー ル を 複数 個 ど う や っ て 作る か で す 。 作 る ボー ル の 個数 が 決ま っ て いる 
の な ら プ ログ ラム 中 に ボー ルオ ブ ジ ェクト の イン スタ ンス と し て 個数 だ け ボ ー ル を 作れ 
ば よい の で 簡単 で す 。 そ れ で は お も し ろく あり ませ ん 。1 個 以 上 の 好き な 個数 の ボー ル 
を 作れ る よう に し て み ま し ょ う 。 
デー タベース な ど で 、 ある 複数 の レコ ー ド が 並ん で いる 構造 に 自由 に 追加 、 削除 する 
と き に は どう すれ ば よい の か 考え て みて くだ さい 。 動 的 リン ク 構 造 を 使用 すれ ば よい こ 
と に 気がつき まし た か 。Pascal プロ グラ マ が 得意 (苦手 7) と する ポイ ンタ を 使用 し て 、 
デー タ の 連鎖 と し て ヒー プ 上 に レコ ー ド を 作る の は 、 レ コー ド 個 数 が 不定 の と き に 使う 
テク ニッ ク で す 。 実 は 、TURBO Pascal で オブ ジェ クト が レコ ー ド 型 に 類似 し た 構造 
を 取っ て いる の は この た めで す 。 


圏 リ スト 7-2 
: program LTST7_2: 


由 

た 

3: uSes 

4: Crt,DOS,Graph : 
5: 

6 

Mi 


: tYPe 
ByteArray = array[O..0] of byte:t1 イ メー ジ デ ー タ 用 } 
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8: ByteArrayPtr = ~ByteArray:t1 イ メー ジ デ ー タ ポイ ンタ } 


10: 。BPointer = ^BaLL: {メソッド の ポイ ンタ } 』 
11: BaLLList = ^BaLLSequence:{ ボ ー ル リス ト } 1 
12: BaLLSequence =record {ボー ルリ スト の 構造 } 


は NextBaLL. : BaLLL1st: 

14: ThisBaLL :BPointer : 1 
15: end : M 
6 M 
17: BaLL=objectt ボ ー ル オプ ブ ジェクト} 
18: X,Y,Radius, Td : 1nteger : 

より ) XSpeed , YSpeed ,CoLor , Pattern : integer : 

20: XDirection,YDirection,VisabLe : booLean : 

21: Tmage : ByteArrayPtr : 

2 Tmage_Size : Word: 

23: 

24: Constructor Tnit(Tni て X , Tn1tY , Tn1tRadius , 

25: TnitSpeed , InitAngLe , 

26: TnitCoLor , Tn1tPattern , 

2 TnitTd : integer) : 

28: Destructor Done: 

29 procedure PutTmage : 

30: procedure CoLLisions(CurrentBaLL : BaLLL1st) : 

31: procedure Bounce(CurrentBaLL : BaLLList) : 

32 : end : 

33: 

34: var 

35: Head,TaiL : BaLLList:{ リ スト 構造 の 頭 と 尾 } 

36: 

37: て ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー } 』 
38: {ボー ル メ ソ ッ ド の 定義 } 

3③9: ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー ニ ーーー ニー ニーーー ニ ーーー ーー ニー + 


40: {ボー ル の 生成 } 
41: Constructor BaLL . Init(TnitX , TnitY , Tn1tRadius , 


42: TnitSpeed, In1tAngLe , 
43: Tn1tCoLor , Tn1tPattern , 
44: Tnit1d : integer) : 

45: var 

46: Rspeed : reaLi{ 作 業 用 実数 } 

47: 

48: begin 

49: 1d := InitTd:{ ボ ー ル 番号 } 

50:  X := TnitX:{ 初 期 X 座 標 

51: 。 Y := TnitYi{t 初 期 Y 座 標 


52: Radius := InitRadius : て ボー ル 半 径 } 
53: {境界 に か か ら な いよ う 修 正す る } 

54: if (X < Radius) then X := Radius: 
55: if (Y < Radius) then Y := Radius: 
56: if (X > GetMaxX-Radius ) 


ビリ ヤー ド の 玉 を 動か す 127 


then X := GetMaxX - Radius: 
if (Y > GetMaxY-Radius ) 
then Y := GetMaxY - Radius: 
Rspeed := TnitSpeed : 
XSpeed := Round(cos(TnitAngLe)*Rspeed) {速度 X 成 分 } 
YSpeed := Round(sin(TnitAngLe) *Rspeed) :{ 速 度 Y 成分 } 
CoLor := TnitCoLor:{ ボ ー ル の 色 } 
Pattern := TnitPattern : 人 {ボー ル の フィ ル パ タ ー ン } 
XDirection := (XSpeed>0):{X 方 向 } 
YDirection := (YSpeed>0) :tY 方 向 } 
XSpeed := Abs(XSpeed) : 
YSpeed := Abs(YSpeed) : 


: {ヒー プ 領 域 に ボー ルビ ッ ト イ メー ジ 領 域 確保 } 


Tmage_Size := Graph.TmageSize(X-Radius ,Y-Radius , 

X+Radius , Y+Rad1ius) : 
GetMem(Tmage , Image_Size) : 
Graph.SetCoLor(CoLor) :{ ボ ー ル の 色 設 定 } 
Graph.SetFiLLStyLe(Pattern,Graph .GetCoLor) :[ フ ィ ル パタ ー ン 設定 } 
Graph.FiLLELLipse(X,Y,Radius ,Radius) :t ボ ー ル を 描く + 


: {ビッ トイ メー ジ の 取り 込み } 


Graph .Get1Tmage(X-Radius ,Y-Radius , 
X+Radius ,Y+Radius ,Tmage~) : 


: {ボー ル を 隠す } 


Graph .PutTmage(X-Radius ,Y-Radius , Image~ ,XURPut) : 
VisabLe := FALSE:{ 画 面 表 示 オ フ + 


: end: 


: {ボール オブ ジェ クト の 消 減 } 
: Destructor BaLL .Done : 
: begin 


FreeMem(Tmage , Image_Size) :t ヒ ー プ 解放 + 


: end: 


: {ポー ル の 画面 表示 } 
: Procedure BaLL.. PutTmage : 


: begin 


Graph . Put1mage(X-Radius ,Y-Radius , Lmage~ ,XURPut) : 
DeLay(0) :{ 表 示 時 間 : 機種 に より 調整 } 


: end: 


: {ボー ル 衝 突 の 処理 } 

: procedure BaLL.CoLLisions(CurrentBaLL. : BaLLList) : 
100: 
101: 
102: 
103: 
104: 
105: 


Var 
XPos, YPos  : integer : 
XMine,YMine : integer: 
XSpd , YSpd : 1nteger : 
0Rad : 1nteger : 


DXDir,DYDir : booLean : 
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106: 

107: begin 

108: XMine := X:{ ボ ー ル の 位置 } 

109: YMine := Y: - 

110: CurrentBaLL, := Head:{ 第 1 ボー ル か ら } 

1 whiLe(CurrentBaLL^ .NextBaLL. <> niL) do 

132: begin 

113: if (CurrentBaLL^ .ThisBaLL~ .Td <> Td) then 

114: begin{ 他 の ボー ル の 方 向 、 速 度 、 半 径 、 位 置 } 

1 も 5 DXDir := CurrentBaLL~ .ThisBaLL ~ .XDirect1on : 

116: OUYDir := CurrentBaLL~ .ThisBaLL~ .YDirection : 

117: XSpd = CurrentBaLL~ .ThisBaLL~ .XSpeed : 

118> YSpd := CurrentBaLL~ .ThisBaLL~ .YSpeed : 

119: DRad := CurrentBaLL ~ .ThisBaLL ~ .Radius : 

120 : XPos := CurrentBaLL~ .ThisBaLL~ .X: 

3 移 利 > YPos = CurrentBaLL~ .ThisBaLL~ .Y: 

シンキ 

123: {衝突 の 判定 } 

124: if (Abs(Xpos-XMine ) く =(Radius+OURad) ) and (Abs(Ypos-YMine)<=(Radius 
+ORad) ) 

125: then 

126: begin{ ボ ー ル 衝突 と 方 向 チ ェ ッ ク }+ 

127 : Sound(100) : 

128: DeLay(10) :NoSound: : 

129: if ((YPos-YMine) <= 0) then 

130: {相手 が 上 に ある } 

131 : begin 

132。 if ((OYDir) and not(YDirection) ) then 

133: begin{ 上 下 反対 方 向 の 衝突 +} 

134 : YDirection := not(YDirection) : 

135: CurrentBaLL~ .ThisBaLL~ .YDirection := not(YDirection) : 
136 : end 

4 が : eLse 

138: begin{ 上 下 同 方 向 の 衝突 +} 

139: CurrentBaLL~ .ThisBaLL~.YSpeed := YSpeed: 
140: YSpeed := YSpd: 

141: end : 

142: end 

143: {相手 が 下 に ある } 

144: eLse 

145: begin 

146: if (not(OYDir) and (YDirection) ) then 

147: begin{ 上 下 反対 方 向 の 衝突 } 

148: YDirection := not(YDirection) : 

149: CurrentBaLL~ .ThisBaLL.~ .YDirection := not(YDirection) : 
150: end 

151: eLse{ 上 下 同 方 向 の 衝突 } 

152: begin 

153: CurrentBaLL~ .ThisBaLL~ .YSpeed := YSpeed: 


ZZ2. ビリ ヤー ド の 玉 を 動か す 129 


154: 
155: 
156: 
157: 
158: 
159: 
160: 
16@4: 
162: 
163: 
164: 
165: 
166: 
167 : 
168: 
169: 
170: 
人 
まめ 
73: 
174: 
5 : 
の 全 : 
77: 
178: 
179: 
180: 
181: 
182: 
183: 
184 : 
185: 
186: 
187: 
188: 
189: 


190: 
191 : 
に アレ 
193: 
194: 
195: 
196: 
りな 
198: 
199: 
200: 
201 : 
202: 


{Y 座 標 計 算 } 
if (YDirection) then 
Y :=Y+ YSpeed 


YSpeed := YSpd: 
end: 
end: 


if ((XPos-XMine) <= 0) then 
begin{t 相 手 が 左 に ある } 
if ((OXDir) and not(XDirection) ) then 
begin{ 左 右 反対 方 向 の 衝突 } 
XDirection := not(XDirect1on) : 
CurrentBaLL~ .ThisBaLL.~ .XDirection := not(XDirection) : 
end 
eLse 
begin{ 左 右 同 方 向 の 衝突 } 
CurrentBaLL~ .ThisBaLL~ .XSpeed := XSpeed: 
XSpeed := XSpd: 
end: 
end 
eLse 
begin{t 相 手 が 右 に ある }+ 
if (not(OXDir) and (XDirection) ) then 
begin{ 左 右 反対 方 向 の 衝突 } 
XDirection := not(XDirection) : 
CurrentBaLL~ .ThisBaLL ~ .XDirection := not(XDirection) : 
end 
eLse 
begin{ 諾 右 同 方 向 の 衝突 } 
CurrentBaLL~ .ThisBaLL~ .XSpeed := XSpeed: 
XSpeed := XSpd: 
end 
end 


end 
end:{tif (CurrentBaLL~ .ThisBaLL~ .Td <> Td) . . .} 
CurrentBaLL := CurrentBaLL^ .NextBaLL:{ 次 の ボー ル }+ 


(メソッド 終わ り } 


{アニ メー ショ ン と 林 衝 突 処理 } 
procedure BaLL .Bounce(CurrentBaLL. : BaLLList) : 


if VisabLe then 
begint ボ ー ル を 隠す +} 
BaLL .PutTmage: 


:= FaLse: 
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203: 
204 : 
205: 
206: 
0 が 
208: 
209: 
210: 
の も: 
212: 
249: 
214: 
215: 
216: 
2 る 7 
218: 
219: 
220: 
2 多く 
222 : 
229: 
224: 
225: 
226: 
227 ) 
ンー 
229: 
230: 
231 : 
82: 
233: 
234 : 
235: 
236: 
237 : 
238: 
239: 
240 : 
241 : 
242 : 
243: 
244 : 
245: 
246 : 
247 : 
248: 
249: 
250 : 
ク も た ま : 
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Y:= Y - YSpeed: 


if (Y < (Radius + 1)) then 
begin{ 床 に 衝突 } 
YDirection := not(YDirection) : 
Y :=Y+ (2 * YSpeed) : 
Sound(350) : 
DeLay(10) :NoSound: : 
end: 
if (Y > (Graph.GetMaxY - Radius - 1)) then 
begin{t 天 井 に 衝突 } 


Ydirection := not(YDirection) : 
Y := Y - (2 * YSpeed) : 
Sound(350) : 
DeLay(10) :NoSound: : 
end: 
{X 座 標 計算 } 


if (XDirection) then 
X :=X + XSpeed 
eLse 
X := X - XSpeedi: 


if (X < (Radius + 1)) then 
begin{ 左 壁 に 衝突 } 
XDirection := not(XDirection) : 
X := X+ (2 * XSpeed) : 
Sound(350) : 
DeLay(10) :NoSound: : 
end : 
if (X > (Graph.GetMaxX - Radius - 1)) then 
begin{ 右 壁 に 衝突 } 
XDirection := not(XDirection) : 
X := X - (2 * XSpeed) : 
Sound(350) : 
DeLay(10) :NoSound: 
end: 
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CoLLisions(CurrentBaLL) :t ボ ー ル 衝突 処理 } 
{新しい 座標 上 に ボー ル を 描く +} 
BaLL .PutTmage : 
VisabLe := TRUE 
end : 


{ボー ルリ スト の 生成 } 

procedure Create_BaLL_List: 

Var 
Num_BaLLs ,counter : integer : 
ABaLL : BaLLList: 

begin 
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Randomize: 
Num_BaLLs := Random(7) + 1:{ 最 大 8 個 } 


: {1 個 目 の ボー ル 生 成 } 


New(ABaLL ) : 
ABaLL~ .ThisBaLL. := New(BPointer , 
Tnit(Random(Graph .GetMaxX) , 

Random(Graph .GetMaxY) , 
10, 
Random(10)+10, 
Random(359)+1 , 
Random(6)+1 , 
Random(10)+1 , 
めか 

ABaLL~ .NextBaLL := niL: 

Head := AbaLL : 

TaiL := AbaLL : 


: {2 個 目 以上 の ボー ル 生 成 } 


for counter :=2 to Num_BaLLs do 
begin 
New(AbaLL ) : 
ABaLL~ .ThisBaLL  := New(BPointer , 
Tnit(Random(Graph .GetMaxX) , 
Random(Graph .GetMaxY) , 
を 
Random(10)+10, 
Random(359)+1 , 
Random(6)+1 , 
Random(10)+1 , 
counter) ) : 
ABaLL~ .NextBaLL := niL: 
TaiL~ .NextBaLL := ABaLL : 
TaiL := AbaLL : 
end: {for+ 


it た メ ーー ショ ジア レー デバ 1 回 分 + 
: Procedure CycLe : 
が a 


ABaLL : BaLLList : 


: begin 


whiLe not(KeyPressed) do 
begin 

ABaLL := Head: 

repeat 
{衝突 と 移動 処理 } 
ABaLL~ .ThisBaLL.~ .Bounce(Head) : 
ABaLL := ABaLL~ .NextBaLL : 

unti] ABaLL = niL 
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304: {ボー ルオ プ ジ ェ クト の 消滅} 
305: procedure Destroy_BaLL : 
306: var 


307: ABaLL : BaLLList: 


309: begin 

310: ABaLL. := Head: 

に yy whiLe(ABaLL^ .NextBaLL <> niL) do 「 
| 
0 
「 


312.: begint イ メー ジ 保 存 ヒ ー プ 領域 の 解放 } 

に テト ABaLL~ .ThisBaLL~ .Done : 

314: ABaLL := ABaLL^ .NextBaLL : 

315: end : 

316: end: 

317 : [ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー ニ ーー ニーーーーー ニ ーー ニー + 

318: {メイ ンプ ログ ラム } 
319: {ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー } 
320: var 
321 : GraphDriver : 1nteger: ( 
322・: GraphMode ・ 1nteger: ! 
323: ErrorCode  : integer: 「 
324 : 1 
325: begin 


326: GraphDriver := Detect: 

327 : DetectGraph (GraphDriver , GraphMode) : 

328: TnitGraph(GraphDriver ,GraphMode,〉) : 1 
329: if GraphResuLt <> GrDK then ( 


330: begin 

SS: Writern( グラ フィ ックス ドラ イ バ が あり ませ ん 。?, 

に と GraphErrorMsg(GraphDriver) ) : 
333: HaLt(1) : 

334 : end: 

335 : 

336 : Create_BaLL_List: 

337 : CycLe: 


338: Destroy_BaLL : 
339: CLoseGraph : 
340: end. 


で は 、 リ スト 7-2 を 見 て み ま し ょ う 。10 一 15 行 目 が オプ ジェ クト の リス ト 構 造 で す 。 
ポイ ンタ 型 が 入り 乱れ て いる の で ちょ っ と わか り に くい か も し れ ま せん 。 図 7-1 を 見 て 
くだ さい 。 リ スト 構造 の 頭 と 尻尾 を 指す 変数 Head と Tail は 34 行 目 で 宣言 され て いま 
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す が 、 プ ログ ラム の ずっ と 後 の ほ うに 出 て きま す 。 


ThisBall NextBall 


Bal 1l メ ノッ ド 


圏 図 7-1 BallSequence 


リス ト 構 造 の 連鎖 は BallSequnence と し て 、 あ る ボー ル か ら 次 の ボー ル を 指す ポイ ン 
タ NextBall と その ボー ル の 属性 、 つ まり メソ ッ ド を 示す ポイ ンタ ThisBall で で き て い 
ます 。 プ ログ ラム の 11 行 目 と 13 行 目 、10 行 目 と 14 行 目 と の 関係 と 照ら し 合わ せ て 見 
で 1W7 の Wa 

ボー ル の 個数 を 増やし た いと き に は 、 あ ら た に ボー ル を 作っ て その ボー ル の NextBall 
で Nil を 指し 、 い まま で 一 番 リ スト の 一 番 最後 に あっ た ボー ル の Nil に 接続 され て いる 
NextBall ポイ ンタ で その ボー ル を 指し て や れ ば よい わけ で す 。 同様 に し て 、 ボ ー ル を 
取り 除く の も 簡単 に で きる は ず で す 。 取り 除き た い ボ ー ル の 前 後 の ボ ー ル を ポイ ンタ で 
つなげ ば よい の で す 。 


7-2-2m 高 速 ア ニメーション 展開 の た め に 

ここ まで オブジェ クト の 設計 が で きた と ころ で 、 こ ん ど は アニ メー ショ ン を どう や る 
か で す 。 前 の リス ト 7-1 で 紹介 し た GVRAM の プレ ー ン を 切り 替え を る テク ニッ ク も 有 
カカ で す が 、 問 題 は 図形 が 複雑 に な る と 座標 を 移動 する た びに 描き 替え て いた の で は ス 
ピー ド が が た 落ち に な る こと で す 。 た と え 丸 だ け の 図形 で も 、 描 画 の た め の 手続 き を 呼 
び 出 す と 、 円 の 中 心 座標 か ら 半径 で 示さ れる 範囲 の ピク セル を 指定 され た 色 で 光ら せる 
と いう 手順 が 行わ れ ま す 。 

座標 移動 の た びに 図形 が 変化 する の で あれ ば それ も や む を えま せん が 、 こ こ で や る 
ボー ル の よう に 丸く て 色 と 模 様 が いつ も 変わ ら な いも の で すか ら 、 あ ら か じ め ボ ー ル の 
図形 を デー タ と し て 持っ て いて 、 そ れ を 画面 に 直接 描く べき で す 。 画 面 に 示す べき 図形 
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デー タ を ビッ ト 情 報 に し た も の を ビッ トマ ッ プ と いい ます 。 こ の プロ グラ ム で は 、 ポ ボー 
ル の 輪郭 と 色 と 模様 を あら か じ め 作っ て お き 、 そ れ を メモ リ 中 に ビッ トマ ッ プ と し て 保 
存 し 、 画 面 表 示 は ビッ トマ ッ プ を 直接 GVRAM に 書き 込ん で いま す 。 

この た め の 手 続き と し て TURBO Pascal の Graph ユニ ッ ト に Puthmage 手続 き が 用 
意 さ れ て いま す 。 こ の 手続 き の 標準 形式 は 次 の よう に な っ て いま す 。 


PutTmage(x,Y: 1nteger: var BitMap: B1tB1t : word) 


ここ で x と y は 画面 座標 (0 一 639,0 一 399) で す 。 変 数 BitMap に 表示 すべ き 図 形 の 
ビッ トマ ッ プ が 格納 され て いる メモ リ 領 域 で す 。BitBlt は 表示 の 方 式 を 指定 する 引数 
で 、Graph ユニ ッ ト で 定義 済み の 定数 に より すでに 画面 に 表示 され て いる グラ フィ ッ ク 
ス に 対し て 次 の よう な 効果 を 出し ます 。 


CopyPut : 前 の を 消し て 描く 

XORPut : 重なっ た と ころ の み 消 し て 描く 
OrPut : 重ね て 描く 

AndPut : 重なっ た と ころ だ け 描 く 


NotPut : 反転 イメ ー ジ を 描く 

この 指定 で アニ メー ショ ン に 利用 価値 が ある の は XORPut で す 。 こ の 指定 を 使用 す 
れ ば 、 画 面 の 同じ と ころ に 2 度 Putlmage する と 、 最 初 は グラ フィ ックス を 表示 し 、 次 
に は 消す と いう 操作 が で きま す 。 

さて 、 手 続き Putlmage で 使う ビッ トマ ッ プ を を 格納 する た め の 準 備 が リス ト 7-2 の 
7 、8 行 目 で す 。7 行 目 で array の 添字 が 0 から 0 に な っ て いる の が 奇妙 な 気 が し ます 。 
実は ビッ トマ ッ プ を 格納 する た め の メ モリ 領域 の 大 き さ は 実際 に 格納 すべ き グ ラフ ィ ッ 
クス が 作ら れる まで 決ま り ま せん 。 ビ ッ ト マ ッ プ は ヒー プ 領 域 に 格納 され ます か ら 、 そ 
の 領域 の 先頭 アド レス だ けが わか れ ば よい の で 、 添 字 の 大 き さ は どう で も よい の で す 。 
PutlImage を 利用 し 、 ヒ ー プ 上 に グラ フィ ックス の ビッ トマ ッ プ を 格納 し て それ を 表 
示す る た め の 準 備 手順 は 次 に よう に な り ま す 。 


(1) 表示 し た い ぃ グラフィ ックス を 凍 む 四角 形 の 左上 と 右 下 の 対 角 点 の 座標 を 決め る 。 
(2②) ImageSize 手続 き で その 四角 形 の 範囲 の ビッ トマ ッ プ に 必要 な メモ リ 量 を える 。 
(3) GetMem 手続 き で ヒー プ 上 に その メモ リ 量 を 確保 する 。 

(4) Graph ユニ ッ ト の 各種 手続 き で グラ フィ ックス を 描く 。 

(5) GetImage で ビッ トマ ッ プ を メモ リ 内 に 取り 込む 。 


こう し て 作っ た ビ ピット マッ プ に より アニ メー ショ ン を 行う に は 次 の 手順 で や り ま す 。 
(1) 一 番 最初 に 画面 を クリ ア し て お く 。 

(2) PutImage で ビッ トマ ッ プ を XORPut 指定 で 表示 する 。 

(3) 次 に グラ フィ ックス を 表示 する 座標 を 計算 する 。 
( 


4) 前 の 座標 に XORPut 表示 し て グラ フィ ックス を 消す 。 
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(5) 新しく 計算 し た 座標 に XORPut する 。 
(6) (3) ~- (5) を 繰り 返す 。 


7-2-3m ぶ さて 、 プ ログ ラミ ング 開始 

ここ まで の 予備 知識 で リス ト 7-2 を 読ん で 行き まし ょ う 。 1 一 35 行 目 まで は 解説 済み 
で すか ら 、38 行 目 の ボー ル メ ソ ッ ド の 定義 か ら で す 。 ま ず 、41 行 目 の Init で す 。 オ ブ 
ジェ クト を 発生 する メソ ッ ド は 必ず Constructor で 始め な けれ ば な り ま せん 。 そ し て 、 
手続 き 名 の Init の 前 に これ が オブ ジェ クト Ball の メソ ッ ド で ある こと を 示す Ball を つ 
け ま 3 

この 手続 き の 引 数 は 新た に オブ ジェ クト Ball を 生成 する た め に 必要 な 情報 を 引数 に 
し て いま す 。 ポ ボ ポール を 最初 に 画面 内 の どの 座標 に 置く か の 位置 nitX と InitY 、 ボ ー ル 
の 半径 InitRadius 、 初 期 速度 InitSpeed 、 初 期 移動 角度 InitAngle 、 色 InitColor 、 模 
様 InitPattern 、 そ し て ボー ル 番 号 Initl1d で す 。46 行 目 の 実数 変数 Rspeed は この 手続 
き の 中 で の 実数 計算 用 の 一 時 的 な 変数 で す 。 

49 一 52 行 目 は 単なる 値 の 代入 で す 。 ず っ と 先 に ある 手続 き 、Create_Ball_List で ボー 
ル の 中 心 の 最初 の 座標 を 乱数 で 決め て いる 関係 で 、 場 合 に よっ て は ボー ル の 一 部 が 画面 
の 端 か ら は み 出 る こと が あり ます 。 そ の 対策 と し て 54 一 59 行 目 は ボー ル 中 心から 画 
面 の 端 ま で の 距離 が Radius 未満 だ っ た ら 強 制 的 に Radiuns に し て いま す 。 

60 62 行 目 で 初期 速度 か ら X 方 向 と Y 方 向 の 速度 成分 を 三角 関数 に より 計算 し 、 
四捨五入 で 正 数 値 を を て いま す 。 移動 角度 か ら 毎 回 速度 成分 の 計算 を や る と 処理 速度 が 
低下 する の で 、 こ の 計算 は ここ だ け に し て いま す 。 あ と で 説明 し ます が 、 ボ ー ル の 衝突 
を どの よう に 処理 する か で 1 回 だ け の 計算 で は 済ま な い 場合 も あり ます 。 

63 、64 行 目 で ポー ル の 色 と 模様 を 決め ます 。65 、66 行 目 で それ ぞ れ X、Y の 増え 
る 方 向 、 つ まり 速度 の また は Y 成分 が 正 の と き を 方 向 が TRUE と する よう に し ま 
す 。 こ うし て お いて か ら 速 度 の 絶対 値 を と っ て 成分 速度 を すべ て 正 に し ます 。 つ まり 、 
速度 の 方 向 と 大 き さ と を 分 離し ます 。 

70 一 79 行 目 は 上 に 解説 し た グラ フィ ックス の ビッ トマ ッ プ 取り 込み で す 。70 行 目 で 
座標 (X,Y) に ある 半径 Radius の 円 を 囲む 四角 形 の 領域 に 必要 な メモ リ 量 を を ます 。72 
行 目 で その メモ リ 量 を ヒー プ 上 に 確保 し ます 。 そ こ で 、73 行 目 で 色 を セッ ト し 、74 行 
目 で 内 部 を 埋め る 模様 (パタ ー ン ) を 決め て か ら 75 行 目 で 椿 円 を 描き ます 。 ボ ー ル は 円 
形 で すか ら XX 座標 方 向 の 半径 と Y 方 向 の 半径 は と も に Radius の 椿 円 を 紅 く こ と に な 
り ま す 。 円 は 椿 円 の 特殊 な 場合 で すか ら 、TURBO Pascal で は 円 の み を 描く 手続 き は 
用 意 き れ て いま せん 。 

この 例 で は 使用 する パソ コン を 日 本 電気 の PC-9801 の 640 X 400 ドッ ト 表 示 モ ー ド 
に 限定 じ て で て がり ま ず すず が ら こ アス ペク ド 比 に つい て で は まっ だ ぐ 考 訣 じ て いま せん 。 し か 
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し 、 パ ソコ ン に よっ て は アス ペク ト 比 に より 双方 向 と Y 方 向 の 半径 を 変え な いと 円 と 
し て 画面 表示 され な いこ と が あり ます 。 こ こ で アス ペク ト 比 と は 、 


横 方 向 の ピク セル ビ ピッチ 


アス ペク トル ルー 2 二 語 の ピク セル ビッチ 


に な り ま す 。 テ レビ で は NTSO 規格 で アス ペク ト 比 は 4:3 =1.333 に 決め られ て いま 
す 。 も し も 画面 に 縦横 同じ 半径 の 椿 円 、 つ まり 円 を 描く と 横 が 30% ほ ど 長 め に な っ て 
し まう と いう わけ で す 。 こ の アス ペク ト 比 が PC-9801 で は 1 に な っ て いる の て 円 を 描 
け ば その まま 表示 も 円 に な り ま す 。 

も し も 、 ア スペ クト 比 が 1 以外 の モニ タ 画 面 に 円 を 出力 する の で あれ ば 、X 方 向 の 半 
径 を XRadius 、Y 方 向 半 径 を YRadiu と し て 、 


GetAspectRatio(Xasp, YasP) : 
XRadius := TnitRadius: 
YRadius := Round((Xasp/Yasp)*TnitRadius) : 


の よう な 計算 に より 求め て お く 必 要 が あり ます 。 む ろ ん 、 あ と の ほう に 出 て くる 各種 計 
算 も この アス ペク ト 比 を 考慮 し て や ら ね ば な り ま せん 。 

77 行 目 の Getlmage で ビッ トマ ッ プ を 取り 込み 、80 行 目 の PutImage の XorPut で 
いま 描い た ボー ル の イメ ー ジ を 消し て お きま す 。 こ う し て 画面 か ら ボ ー ル が 消え て いる 
状態 で は 表示 を 現す 論理 変数 Visable を FALSE に セッ ト し ます 。 こ う し て お け ば ある 
時 点 で Putlmage に より XorPut し た と き に それ が 描画 か 消去 か を 区 別 で きま す 。 

85 行 目 の メソ ッ ド Done は オブ ジェ クト を 消 減 き せる た め の も の で す 。 こ の メソ ッ ド 
は か な ら ず Destructor で 始め な けれ ば な り ま せん 。 こ の メソ ッ ド は 、 呼 び 出さ れる と 
ヒー プ 上 に 生成 され た オプ ジェ クト を 消し ます 。 こ の 例 で は オプ ジェ クト は 一 度 作ら れ 
る と プロ グラ ム 終 了 ま で 存在 し て いま すか ら 、 特 に Destructor は 必要 あり ませ ん 。 し 
か し 、 た と えば ボー ル 同 士 が 衝突 する と 一 方 の ボー ル が 他方 に 吸収 され る よう に し た 
けれ ば 、 こ の メソ ッ ド に より その オブ ジェ クト を ヒー プ か ら 取 り 去 り ま す 。 一 般 的 に は 
begin と end だ け で 内 容 が 存在 し な く て も この 機能 は 実現 ュ ミ まれ ます が 、 こ こ で は ビッ ト 
マッ プ も ヒー プ 上 に 取っ て いる の で それ も 解放 する よう に し て いま す 。 

91 行 目 の PutImage は 画面 に ボー ル の ビッ トマ ッ プ を XORPut する も の で す 。95 行 
目 に ある Delay の 引数 は ここ で は 10ms に し て いま す 。 機種 に よっ て は これ で は ボー ル 
の 動き が 速 す する か も し れ ま せん 。 そ の 場合 は 試行 錯誤 で 適当 な 大 き さ に 設定 し て くだ 
さい ぃ 。 実 は ボー ル の 個数 に よっ て は アニ メー ショ ン の 速度 が 変わ っ て し まい ます 。 そ こ 
で 、 生 成 さ れ た ボー ル の 個数 に より この Delay の 大 き さ が 変わ る よう に すれ ば よい の 
で す が 、 こ こ で は めん どう な の で 適当 な 大 きき さ を 選 びました 。 

99 行 目 の メソ ッ ド は ボー ル 同 士 の 衝突 を 処理 し ます 。 引 数 の CurrentBall で 指 さ れ る 
ボー ル に 他 の ボー ル が 衝突 し て いる か を 調べ 、 衝 突 し た ら 反 発する 処理 を し て いま す 。 
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XMine と YMine は ボー ル の 座標 、XPos と YPos は 相手 ボー ル の 座標 、XSpd と YSpd 
は 相手 ボー ル の 叉 方向 と Y 方 向 の 速度 成分 、OXDir 、OYDir は その 速度 成分 の 方 向 
で す 。ORad は 相手 ポール の 半径 で す 。 

処理 は 107 行 目 か ら で す 。110 行 目 で 調べ る べき 相手 ボー ル を リス ト の 先頭 か ら に 設 
定 し ます 。111 行 目 で は 自分 以外 の 相手 ボー ル す べ て を 調べ る よう に while 文 を 組み 立 
て て いま す 。115 - 121 行 目 は 相手 ボー ル の 各種 情報 を 取り 出す 操作 で す 。 こ れ を や っ 
て お か な いと 、 い ちい ち ポ イン タ を 使っ て 情報 を 引き 出す こと に な り 、 プ ログ ラム が 見 
の らち る な る の 只 さ 9 じい ふる の (9 も 

衝突 の 判定 は 123 行 目 で す 。 こ こ で は 自 ボ ー ル と 相手 ボー ル の 中 心 の XX 座標 同士 と 
Y 座標 同士 の 差 が どちら も 両 ボ ー ル の 半径 の 和 よ り 小 さい と き に 衝突 し た と 判定 し て い 
ます 。 本 当 は 自 ボ ー ル の 中 心 座標 を (x1,y1) 、 相 手 ボ ー ル の 座標 を (x2,y2) と し た と き 
に 、 ボ ー ル が 衝突 し た か どう か は その 2 つの 点 の 距離 、 


(z1 一 z2)* 十 (91 一 %2)* 


が 両方 の ボー ル の 半径 の 和 よ り 小 さい と き の は ず で す 。 し か し 、 さ ら に よく 考え る と こ 
の 議論 が 成り 立つ の は アス ペク ト 比 が 1 の と きだ け で す 。 そ れ に ここ まで 正確 に や ら な 

く て も 人 間 の 目 は 速 く 動い て いる グラ フィ ックス を 正確 に 捕 ち えら れ ま せん か ら 、 不 自 
然 で な い 範囲 で で きる だ け や さ し り い 方法 を 使っ て か まい ませ ん 。 こ の よう な 「 だ まし 」 
の テク ニッ ク は 特に 高速 の アニ メー ショ ン を し た いと き に 必要 に な り ま す 。 

衝突 の 処理 は 126 一 184 行 目 で す 。127 、128 行 目 で 衝突 の 音 を 出し ます 。 相 手 ボ ー 
ル と 自 ボ ー ル が 反対 方 向 だ っ た ら 方 向 を 変換 し 、 同 方 向 だ っ た ら 速 度 を 交換 し ます 。 こ 
れる も 本当は 衝突 する 角度 に 応じ た 複雑 な 物理 計算 が 必要 な の で す が 、 こ こも 自然 に 見 え 
る 範囲 で 簡単 な 計算 で 済ま せ て あり ます 。186 行 目 で 次 の ボー ル を 取り 出し て 、111 行 
目 の while 文 を 繰り 返し ます 。 

192 行 目 の メソ ッ ド Bounce は ボー ル の 移動 計算 と 画面 の 端 に 来 た と き の バ ウン ド の 
処理 で す 。 こ の メソ ッ ド は 毎回 呼び 出さ れ ま すか ら 、 こ こ に アニ メー ショ ン の メカ を 入 
れ 込 み ま す 。193 行 目 で ボー ル が 画面 表示 され て いな い の で あれ ば 、 画 面 表 示し 表示 ス 
イッ チ で ある Visable を FALSE に し て お きま す 。 

199 行 目 で Y 方 向 の 向き に より 次 の ボー ル の Y 座標 を 計算 し ます 。205 一 217 行 目 は 
その 座標 の 値 に より ボー ル が 画面 の 上 端 か 下端 、 つ まり 天 電 か 床 に 衝突 し た か を 調べ 、 
衝突 する の な ら 端 か ら 折り 返す 分 を 倍 に し て Y 座標 を 計算 し て いま す 。 こ れ も 正 確 な 
計算 で は あり ませ ん 。 本当は 端 か ら ボ ー ル の 半径 分 離れ た と ころ で バウ ンド する の で す 
か ら 、 バ ウン ド し た と き の 座 標 も それ に し た が っ て し な けれ ば な り ま せん 。 同様 に し て 
左右 の 壁 に 衝突 し た と き に も 折り 返し 分 を 倍 に する だ け で 済ま せ て いま す 。 

座標 の 計算 と 画面 の 端 へ の 衝突 の 処理 が 終わ っ た ら 、240 行 目 で 他 の ボー ル と 衝突 し 
て いる か どう か の 判定 と 処理 を Collisions で 行い 、 新 し い 座 標 を 決め て か ら 242 行 目 で 
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ボー ル を 画面 表示 し ます 。 表 示 ス イッ チ の Visable を TRUE に し て お きま す 。 

これ で メソ ッ ド を 終わ り ま す 。 こ の 後 は ボー ル を 作り だ し 、 ア ニメーション に 取り か 
か り ま す 。 後 は ボー ルオ プ ジ ェ クト と 環境 の 関係 を 記述 する こと に な り ま す 。247 行 目 
か ら は ボー ルリ スト を 生成 する 手続 き 、Create_Ball_List で す 。Num_Balls は 生成 する 
ボー ル の 個数 、counter は 手続 き 内 で 使用 する 整数 、ABall は ボー ルリ スト で す 。 

この 手続 き で は ボー ル を 乱数 で 作り ます 。253 行 目 で 最大 8 個 の ボー ル を 作る よう に 
し て いま す 。1 を 加え て いる の は 少な く と も 1 個 以 上 作ら れる よう に する た めで す 。255 
ー 267 行 目 は 1 個 目 の ボー ル の 生成 で す 。255 行 目 で リス ト を 新た に 作り 、256 行 目 で 
ボー ルオ プ ブ ジ ェクト を 作り ます 。 こ こ で 使用 し て いる New は TURBO Pascal 特有 の 
拡張 され た New で す 。 こ の New で BPointer で 指 さ きれ る ボー ルオ プ ブ ジ ェクト を ヒー プ 
上 に 生成 し ます 。 こ こ で は Init メソ ッ ド に より 、 ボ ー ル の 中 心 座標 を 乱数 で 決め 、 半 
径 を 10 ピク セル 、 速 度 を 10 一 20 ピク セル の 乱数 、 初 期 移動 方 向 角度 を 0 一 360 度 の 
乱数 に し ます 。 ボ ー ル の 色 は 0 - 14 の 乱数 に 1 を 加え る こと に より 1 一 15 の 乱数 と 
し て 、0 で ある 黒 を 除外 し た 色 が 指定 きれ る よう に し て いま す 。 同じ よう に 、 ボ ー ル の 
模様 も フィ ル パ タ ー ン と し て 12 種類 の 中 か ら バ ッ ク グ ラウ ンド と フォ アグ ラウ ンド 、 
ユー ザー 定義 パタ ー ン で ある 0 番 、1 番 と 12 番 を 除外 し て 乱数 で 決め て いま す 。 

ここ まで で は まだ ボー ル が 1 個 目 で すか ら 、265 行 目 で 次 の ボー ル を 指す ポイ ンタ は 
NIL 、 つ まり 何 も 指 さき な いよ うに し て いま す 。 当 然 、 リ スト の 先頭 と 最後 を 指す ポイ ン 
タ も この ボー ル し か な い の で 、266 、267 行 目 の よう に し て お きま す 。 

269 一 284 行 目 は 2 個 目 以上 の ボー ル の 生成 で す 。 た だ し 、 新 た に 生ま れ た ボー ル は 
それ 以前 に 生ま れ た ボー ル の 後ろ に つき ます か ら 、 リ スト の 最後 尾 に くる よう に し ま 
す 。 それ が 282 、283 行 目 で す 。 

288 行 目 か ら の 手続 き Cycle は アニ メー ショ ン の サイ クル を 制御 し ます 。293 行 目 で 
キー が 押下 され る まで アニ メー ショ ン サ イク ル で ある 294 - 301 行 目 を 実行 し ます 。 
295 行 目 で ポイ ンタ を リス ト の 先頭 、 つ まり 1 個 目 の ボー ル に セッ ト し 、296 行 目 で リ 
スト の 最後 まで の 繰り 返し を 行い ます 。298 行 目 が ボー ル の 移動 、 衝 突 、 画 面 表 示 で 、 
299 行 目 は リス ト を 先 に 進め ます 。 

305 行 目 の 手 続き Destroy_Ball は リス ト 上 を 順に た どっ て オプ ジェ クト の 消滅 と 、 ビ ッ 
トマ ッ プ に 確保 し た メモ リ の 解放 を 行い ます 。 実 は 、 こ の 手続 き は な く て も か まい ませ 
ん 。 こ の プロ グラ ム は ボー ル の アニ メー ショ ン を や る だ け で 、 そ れ に 引き 続き 何 か 他 の 
こと を や る わけ で は あり ませ ん か ら 、 ヒ ー プ メモ リ を 解放 する 必要 は な いか ら で す 。 プ 
ログ ラム が 終了 する と TURBO Pascal が すべ て の メモ リ を シス テム に 返し ます か ら 、 
メモ リ を 取っ た まま 終了 し て も か まい ませ ん 。 む ろ ん 、 第 3 章 で 説明 し た TSR( 常 駐 終 
了 ) だ け は 違い ます 。 

さて 、 こ れ で 長 々 と し た メソ ッ ド と 手続 き の 解説 は 終わ り 9 で す 。 も っ と も 、 こ れ ほ ど 
長い 準備 を し た お か げ で 、 メ イン プロ グラ ム は と て も 簡単 に な り ま す 。326 - 334 行 目 
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まで は 前 節 で 説明 し た グラ フィ ックス ドラ イ バ 使 用 の 定石 で す 。336 行 目 以 下 は すでに 
解説 し た 手続 き を 並べ た だ け で す 。 最 後に 339 行 目 で プロ グラ ム 終 耳 前 に グラ フィ ッ ク 
ス ド ラ イ バ の 使用 の 終了 を 行い ます 。 

以上 の プロ グラ ム を 見 て いて 、 不 思 議 に 思い ませ ん で し た か 。 オ ブ ジ ェクト は var に 
ょ より イ ンス タン ス と し て 変数 宣言 され て は じ め て 使用 で きる は ず で す が 、 そ れ が どこ に 
も な か っ た の で す 。 実は イン スタ ンス の 宣言 は 250 行 目 の リス ト 構 造 の 変数 ABall の 
宣言 で 行わ れ て いた こと に 気付 いて くだ さい 。 

どう で し た か 。 オ プ ブ ジ ェクト を 使っ て の プロ グラ ミン グ も な れ て し まえ る ば 楽 な も の で 
す 。TURBO Pascal の マニ ュ ア ル の オブ ジェ クト 指向 プロ グラ ミン グ の 最後 に も 書い 
て あり まし た が 、「 あ っ 、 そ うか ! 」 と わか っ た 瞬間 に オブ ジェ クト 指向 プロ グラ ミン 
グ が 自分 の も の に な り ま す 。 

ここ で 作っ た リス ト 7-2 は ポー ル の 衝突 運動 を シミュレー ショ ン し た の で す が 、 衝 突 
の 判定 に し て も 、 衝 突 の 処理 に し て も ご ま か し の 計算 で 済ま せま し た 。 物 理 が 得意 な 
ひと な ら ば 、 完 全 弾 性 衝突 に し た り 、 衝 突 を 繰り 返す ごと に エネ ルギー を 失っ て 最後 は 
ボー ル が の ろ の ろ 動 く よ う に し た り 変 えら れる は ず で す 。 さ ら に 、 衝 突 の 条件 に よっ て 
は 2 つの ボー ル が 1 個 に な っ た り 、 衝 突 し た 相手 の ボー ル が 2 つ に 分 裂 し た り と まる 
で 原子 核 の 運動 の よう な プロ グラ ム に 変え て みる の も お も し ろ い で し ょ う 。 あ る い は 、 
面 の 下方 に 向かっ て 重力 が な ある と する と 、 ま た ボー ル の 運動 が 変わ っ て きま す 。 
どう 変え て る の も 、 す で に オブ ジェ クト を 自分 の も の に で きた あな た に は それ ほど 区 
し いこ と で は な いで し ょ う 。 ボ ポー ルオ ブ ジ ェクト の 属性 を 変え た た り 、 オ プ ジ ェ クト の 環 
境 を 変化 させ る だ け で 、 こ の プロ グラ ム を いろ いう 発展 させ て 遊ん で くだ さい 。 
最後 に な り ま し た が 、 こ の ボー ル ア ニ メー ショ ン は 、J.G.Soybel “Turbo Pascal 5.5 
Programing”, Windcrest の 例題 を 参考 に し た こと を お 断り し て お きま す 。 


スク リー ン に 直接 アク セス する 
7ー3m 高 速 ア セン プラ プロ グラ ム 

スク リー ン に テキ スト を 書き 込む に は Write や WriteLn が ある こと は 基礎 中 の 基礎 で 
す 。 そ れ よ り は る か に 高速 に スク リー ン に 文字 を 書き 込む 機械 語 プ ログ ラム を TURBO 
Pascal で 開発 し て み ま し ょ う 。 1 

パパ ソコ ン が 32 ビット CPU 時 代 に 突入 し た 今 と な っ て は 、 わ ざわ き 機 械 語 で プロ グ 
ラム を 作ら な く て も 十分 な 速度 が 得 ら れる よう に な り ま し た 。 し か し 、 速 く な っ た ら 
な っ た で 、 も っ と 高速 に し た いと 思う の が 人 情 (欲張り ?) と いう も の で す 。 こ こ で 紹介 
する 方 法 は 、 ど うし て も 高速 で 処理 し た い ル ー チ ン を どう や っ て TURBO Pascal に 取 
り 込 む の と いう テク ニッ ク で す 。 
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さて 、TURBO Pascal に は プロ グラ ム 中 に 直接 機械 語 を 書き 込む た め Inline 文 が 用 
意 さ れ て いま す 。Inline の 文 の 書式 は 


Tn1ine(xx/yy/zz/. ..) : 


で す 。 xx 、yy な ど は 整数 定数 、 変 数 名 、 手 続き 名 、 関 数 名 、 ロ ケー ショ ン ・ カ ウン タ 
(* で 表す ) の いずれ で も か まい ませ ん 。 


較 リ スト 7-3 


: Program Li1st7_3: 


: uSeS Crt: 


CLrScr: 
GoToXY(20, 10) : 
WriteLn() どの キー で も 押せ ば ブザー は 止ま り ま す 。 う ): 


1 
人 。 
に 
4: 
5: begin 
6 
7 
に 計 
9: TnLine 


10: ($b4/$17/ 

1 $cd/$18) : 

旬 誠 く 

も 9 repeat 

14: untiL. KeyPressed: 
5 

16: TnLine 

17 : ($b4/$18/ 

18: $cd/$18) : 

19: CLrScr: 

20: GoToXY(20,10) : 

21 : WriteLn( デモ を 終わ り ま す 。 う ): 


22: end. { sampLe } 


リス ト 7-3 は Inline 文 を 利用 し て 、 毎 度 お な じみ の BIOS を 利用 し た ブザー 鳴動 と 停 
止 で す 。 わ ず か 全体 で 4 バイ ト だ け で すか ら 、Imline 文 に よる 高速 化 の 効果 と いっ て も 
だ た か が し れ て いま す 。 

MOV 、INT の 機械 語 で ある 16 進数 を 8086 の 資料 か ら 探 し て くる の は や っ か いで 
す 。TInline 文 を 使え ば 高速 な を プログ ラム が 作れ る こと は わか っ て も 、 い き な り 8$8A 、… 
の よう に 16 進数 で 8086 の 機械 語 を 書く の は 神業 で す 。 私 の 知っ て いる パソ コン ・ マ ニ 
ア に は この 手 の 「 神 業 」 を 平気 で や る ひと が いく ら も いま す 。 私 も その 昔 、 コ ン ピ ュ ー 
タ に まだ が 真空 管 が 使用 され て いる 時 代 に は そん な こと を や っ て いま し た が 、 さ す が に 寄 
る 年 波 (?) に は 勝て ず と いう か ズル く な っ て 楽 を する よう に な り ま し た 。 

その 方 法 を ここ で 紹介 する こと に し まし ょ う 。 さらに Imline 文 で どの 程度 高速 化 で き 
る か 様子 を みる た め に 、 画 面 全部 を 文字 で 埋め 尽く し て み ま す 。 リ スト 7-4 を 見 て くだ 
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さい 。 こ の プロ グラ ム で は 普通 の Write 文 で 画面 に 数 字 を 記入 し て いま す 。 プ ログ ラム 
自体 は と て も 簡単 で すか ら 、 何 を や っ て いる か すぐ に わか る と 思い ます 。 


圏 リス ト 7-4 
1: program LTST7_4: 
23 
3: usSeS Crt: 
4: 
5: Var 
6: y : integer : 
( 信 
8: begin 
9: CLrScr: 
104 GoToXY(20, 10) : 
11: Write(? 普通 の 書き 込み で す 。 う ): 
12: DeLay(500) : 
まう: 
14: for y := 1 to 25 do 
5? begin 
16: GoToXY(0,): 
の 1 Write(?0123456789012345678901234567890' , 
18: )123456789012345678901234567890' , 
19: ?1234567890123456789?) : 
20 : end : 
レネ 中 
22: DeLay(500) : 
287 CLrScr: 
24 : GoToXY(20, 10): 
25: Write(, デモ を 終わ り ま す 。 う ): 
26 : DeLay(500) : 
アル 人 CLrScr: 
28: end . 


今度 は 機械 語 プ ログ ラム の 開発 で す 。 い き な り 16 進数 で プロ グラ ム を 作る 神業 を や 
ら ず 、MS-DOS の 付録 に 付い て くる MASM( マ クロ アセ ンプ ブラ ) を 利用 し て 楽 を し ま 
す 。 ア セン ブラ で プロ グラ ム を 開発 し 、 そ れ を MASM で アセ ンプ ブル し て 機械 語 を 手 に 
入れ よう と いう の で す 。 と は いる を 、MASM を 使う に は マク ロ 疑 似 命令 と アセ ンプ ブラ の 
知識 が 必要 で す 。 - 

な に や ら 面 倒 な 名 前 が 出 て きま し た が 、 し ば らく の 間 が まん し て くだ さい 。 機械 語 で 
高速 な 画面 書き 込み を 行う に は 、 デ ー タ を いき な り VRAM に 入れ て し まう の が よさ そ 
う で す 。 そ こ で この 部 分 を 次 の 形式 の 手続 き を と し て 作る こと に し まし ょ う 。 


Procedure fastwrite(co1] ,row , att エ 1b : byte :Var Str: str80) : 
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この fastwrite で は 画面 上 の row 行 目 の col 番目 に 属性 attrib を 持っ た 文字 列 str を 
表示 し ます 。 

リス ト 7-5 を 見 て くだ さい 。3 、4 、5 行 に ある row 、col 、attrib は それ ぞ れ 、16 進 
数 の 1111 、2222 、3333 に 設定 され て いま す 。 こ れ に は 別に 意味 は あり ませ ん 。 た だ 
後ほど アセ ン ブ ル し て 機械 語 が 手 に 入っ た と き に 、 ど の 部 分 を row 、col 、attrib に 置 
き 換 えた ら よ い の か すぐ に わか る た め の 工 夫 で す 。 こ の 例 で も わか る よう に 、 値 引数 
は と に か く 目 立つ 値 に 設定 し て 、 プ ログ ラム の 先頭 に 置き ます 。 ス カラ 型 の 値 引 数 は 1 
ワー ド 、 つ まり 2 バイ ト で すか ら こ こ で は それ ぞ れ 、 適 当 な 2 バイ ト の 変数 に 設定 し た 
、 9 可 ま 。 

それ に 対し て 変数 引数 は プロ グラ ム の セグ メン ト 疑 似 命 令 の すぐ 後ろ に 置き ます 。 変 
数 引数 は サブ プロ グラ ム へ その ベー ス ア ドレ ス と オフ セッ ト が それ ぞ れ 1 ワー ド の 計 2 
ワー ド で 引き 渡さ れ ま す 。 こ れ は 変数 の 型 に より ませ ん 。 で すか ら 、 リ スト 7-5 の 10 
行 目 で dd( ダ ブル ワー ド ) で 2 バイ ト 確 保 し ます 。 ア セン プラ の プロ グラ ム を 開発 する 
と き に は TURBO Pascal の マニ ュ ア ル の 引数 の 説明 を よく 読ん で くだ さい 。 

7 行 目 と 12 行 目 は お まじ な いと で も 思っ て この 通り に いつ も プロ グラ ム を 作っ て く 
だ さい 。 や むろ ん 、 手 元 に MS-DOS の MASM の マニ ュ ア ル が あれ ば 、 こ れ ら が どう い 
うこ と な の か は すぐ に わか り ま す 。13 行 目 か ら ア セン プラ の プロ グラ ム が 始ま り ま す 。 
15 一 22 行 は これ か ら 書 き 込 む 座標 、 つ まり テキ スト VRAM で の 位置 を 計算 し て 、 そ 
れ を DI に 入れ て いま す 。 図 7-2 に テキ スト VRAM の 表示 エリ ア を 示し ます 。 テ キス 
ト 画面 は 2 枚 あ り ま す 。 

23 一 30 行 は 文字 列 を 取り 出す た め の 準 備 作業 で す 。TURBO Pascal で は 文字 列 の 
第 1 バイ ト に は その 文字 列 の 長き が 入っ て いる こと を 思い だ し て くだ さい 。32 - 35 行 
で VRAM へ の 書き 込み の 準備 と し て アト リピ ビュ ー ト (属性 ) を セッ ト し て いま す 。 


A0000 AO0002 AO004 A009C AOO09E 
A00A0 A00A2 A00A4 A013C A013E 
: : 25 行 
A1000 A1004 A1004 A109C A109E 
A10A0 A10A2 A10A4 A113C A113E 
25 行 


圏 図 7.2 テキ スト VRAM 表示 エリ ア 
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図 7.3 に アデ トリビュート の バイ ト 形 式 を 示し て お きま す 。 こ れ を 指定 に 従っ て 操作 す 
れ ば か な りお も し ろ い 画面 が 作れ る で し ょ う 。textmem 以下 で CL に 文字 長 、BX に 文 
字 、DS に テキ スト VRAM の 表示 エリ ア と アト リ ビ ュ ー ト エリ ア (表示 エリ ア と 同じ ) 
の 先頭 アド レス 、 そ し て DL に アト リピ ビュ ー ト 雇 入 れ て 使用 し て いま す 。 

が 6 5 


4 き 2 1 0 


一 凶 7-3 アト リ ビ ュ ー ト バイ ト 形 式 


37 一 60 行 の ルー プ で 文字 列 な い の 1 文字 ずつ を 次 々 に VRAM に 書き 込ん で いま す 。 
getchar で メモ リ か ら 文 字 を BL に 取り 込み ます 。 次 の testlow は 画面 表示 の 開始 要求 
を 行っ て いま す 。 こ れ は テキ スト 制御 用 の GDC( グ ラフ ィ ッ ク ・ デ ィ ス プレ イ ・ コ ント 
ロー ラ ) の 内 部 に ある コマ ンド / パ ラメ ー タ を 格納 する 16 バイ ト か ら な る バッ ファ が 空 
くま で 待つ た めで す 。 こ うし て 、GDC が 他 の コマ ンド を 実行 し て いな いこ と を 確認 
る の で す 。 

リス ト 7-5 の プロ グラ ム の お お よそ を 説明 し まし た が 、 ア セン ブラ が よく わか ら な い 読 
者 は 、 こ ん な プロ グラ ム は 作れ そう も な いと あき ら め る か も 知れ ませ ん 。 し か し 、 ち ょ っ 
と 待っ て くだ さい 。 せ っ か が く 作 っ た プロ グラ ム で すか ら 、 ど う や っ て それ を TURBO 
Pascal に 組み 込む の か 知っ て か ら で も 遅く あり ませ ん 。 い ろ い ろ な 本 に 載っ て いる ア 
セン ブラ で 作ら れ て いる プロ グラ ム も 自分 で 作り 変え られ る と ころ を 手直し すれ ば 、 
TURBO Pascal へ の 組み 込み 方 きえ わか れ ば 十分 使い こなせ る は ず で す 。 


弄 リ スト 7-5 
義 の も SD7 2e 
ン 
3: row equ 1111h 
4: coL equ 2222h 
5: attrib equ 3333h 
隊 、 
7: codeseg Segment para 
8: asSume cs: Codeseg , eS :nothing , ds :nothing 
9: 
10: str dd 0000h 
1 
12: fastWr1 も Proc far 
13: push ds 
14: Push ds 
15: mov aL ,row [bp+0] 


16 : mOV bL, 80 
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を - 

18: 

19: 

20 : 

は 4 

アゲ 

23: 

24 : 

2 ちょ: 

0 

ビ Y 癌 。 

28: 

29: 

30: 

き 1: 

32: textmem: 
38: 

34 : 

35: 

36 : 

37: getchar : 
38 : 

39 : 

40: testLow : 
41: 

42: 

43: 

44 : 

45 : 

46: 

47: testhi : 
48: 

49: 

50: 

に 

52 : 

53: 

54 : 

55: 

56 : 

57: 

58: 

59: 

60: 

61 : 

62: done: 
63.: 

64 : fastwr+ ユ セ も 
65: codeseg 


mul 
Sub 
moV 
add 
add 
mo 
mov 
Les 
Sub 
moV 
Sub 
POoP 
and 


]z 


mOV 
mOV 
mOV 
mOV 


1nc 
moV 


in 
test 
]z 
moV 
Out 
cLi 


1n 
test 
]z 
moV 
push 
push 
moV 
moV 
PoP 
mov 
SE 
1nc 
1nc 
Loop 


POP 


endp 
ends 


CA4P7E 選 マタ ラボ ・ グ ラフ ィ ッ ク え 


bL 

bx , bx 

bL, coL [bp+0] 
ax ,bX 

aX,aX 

d1 ,aX 
bh,00h 

Ss1 , str [bp+0] 
C 補 2C 六 
cL,es : [si] 
aX,aX 

ds 

G も 。 で も 

done 


dx,0a000h 

ds ,dX 

dh,00h 

dL ,attrib[bp+0] 


S1 
bL,es : [si] 


aL,60h 
aL,04h 
testLow 
aL,0dh 
62h ,aL 


aL,60h 
aL,04h 
testLow. 
ds : [di] ,bx 
ds 

dX 

dx ,0a200h 
ds ,dX 

dX 

ds : [di] ,dx 
ds 

d ュ 

di 

Eeetchar 


ds 
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66: end 


リス ト 7-5 の プロ グラ ム が 完成 し た と し て 話 を 先 に 進め まし ょ う 。 こ の プロ グラ ム の 
作成 は むろ ん ター ボ ・ エ ディ タ で 十分 作れ ます 。 こ の プロ グラ ム の 名 前 を LIST7-5.PAS 
に し て お きま す 。MS-DOS の MASM で アセ モン ブル し た 結果 が リス ト 7-1 の アセ モン ブル 
結果 で す 。 こ れ で えら れ た 結果 の 機械 語 1E 、1E 、8A 、86 、.… を Inline 文 の 中 身 に 
4 まま よい の が が 。 

その 結果 で きた TURBO Pascal の 高速 画面 書き 込み 手続 き fastwrite を リス ト 7-6 に 
示し ます 。Injine 文 の 中 に 現れ る 変数 名 は どう し て そこ に 入る か を 、 リ スト 7-5 の アセ 
ンプ ブル 結 果 と 比較 し て 調べ て みて くだ さい 。 


圏 リス ト 7-6 


下っ 

き 

3: procedure FastWrite(coL ,row ,attrib : byte : 

4: Yar Str : str80) : 

に 過 

6: begin 

り inLine 

8: ($1E/ { push ds + 

9: $1E/ { Push ds 
10: $8A/$86/row/ { -mov aL,row[bp+0] }+ 
は $B3/$50/ { mov bL,80 ナ 
12: $F6/$E3/ { mul tbL + 
13: $2B/$DB/ { Sub bx,bx ナ 
14: $8A/$9E/coL/ { mov bL,coL [bp+0] } 
15: $03/$C3/ { add ax,bx 中 
16: $03/$CO/ { add ax,axX + 
中 衣 4 $8B/$F8/ { mov di,ax + 
18: $B7/$00/ { mov bh,00h } 
19: $C4/$B6/str/ { Les si,str[bp+0] + 
20 : $2B/$C9/ { Sub  cX,CX } 
215 $26/$8A/$0C/ て mov cL,es: [si] + 
1 $2B/$CO/ { Sub ax,aX よ 
28: $1F/ 51 Pop ds 中 
24 : $22/$C9/ { and ceE + 
25: $74/$31/ t jz done よ 
26 : $BA/$A000/ {ttextmem: mov dx,Oa000h + 
ツイ 人 $8E/$DA/ て mov ds,dx + 
28: $B6/$00/ { mov dh,00h + 
29 : $8A/$96/attrib/ { movy dL,attrib [bp+0]+ 
30: $46/ tgetchar: inc si + 
31 : $26/$8A/$1C/ { mov bL,es: [si] 92 
32: $E4/$60/ ttestLow: in  aL,60h + 
33: $A8/$04/ も test aL,04h + 
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34 : 
35: 
36 : 
37 
38 : 
39 : 
40: 
41 : 
42: 
43 : 
44 : 
45 : 
46 : 
47 : 
48: 
49: 
50: 
8 も 
52 : 
53 : 


$74/$FA/ 
$B0/$OD/ 
$E6/$62/ 
$FA/ 
$E4/$60/ 
$A8/$04/ 
$74/$FA/ 
$89/$1D/ 
$1E/ 
$52/ 
$BA/$A200/ 
$8E/$DA/ 
$5A/ 
$89/$15/ 
$1F/ 
$47/ 
$47/ 
$E2/$DA/ 
$1F) : 


m 上 上 ホ 上 ホホ ホホ ユー ホホ ユー ホ ユエ ホホ ユ ホ ホ ユ ホ ホホ ユー ホ ユエ ホ ユエ ホ ユー ユー ユー 


done : 
end : 


testhi : 


C 及 4P7P 骨 7 ター ポ ・ グ ラフ ィ ッ クス 


testLow 
aL,0dh 
62h, aL 


aL,60h 
aL,04h 
testLow 

ds : [di] ,bx 
ds 

dx 

dx ,0a200h 
ds , dx 

dx 

ds : [di] ,dx 
ds 

di 

di 

getchar 

ds 


ヤヤ ヤヤ ーー の や em 


リス ト 7-7 は リス ト 7-4 の プロ グラ ム を 改造 し て 、fastwrite が どの 位 速い か を デモ さ 
せる も の で す 。TFast screen updating と いう メッ セー ジ に 続い て 高速 画面 書き 込み が 行 


われ ます が 、 ド ン と いう 感じ で 一 瞬 の うち に 画面 書き 込み が 完了 し ます 。 


Program LTST7_7: 
uSeS Crt: 


type 
Str80 = string[80] : 


Var 
当 : 3 間 も ES ) 
Y : byte 


{t$1 \ibmpc\LTST7-6.PAS+ 


begin 
CLrScr : 
GoToXY(20, 10) : 
Write(〉 普通 の 書き 込み で す 。 う ): 
DeLay(500) : 


for y :=Oto 24 do 
begin 


園 リ スト 7-7 
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224 
23: 
24 : 
地 科 3 
26 : 
37 ん > 
28: 
29: 
30 : 
きま : 
に と 
に に 
34 : 
35 : 
トド に 
7: 
38 : 
39: 
40: 
41: 
42 : 
43: 
44 : 
45: 
46: 
47: 


GoToXY(0, ず ): 
Write( ?0123456789012345678901234567890? , 
?123456789012345678901234567890? , 
1234567890123456789〉 ) : 
end : 


DeLay(500) : 
CLrSezj 


GoToXY(20,10) : 
Write(: 高速 の 書き 込み で す 。〉) 
DeLay(250) : 


x:=701234567890123456789012345678901234567890 ?+ 
?123456789012345678901234567890123456789): 


for y:=O to 24 do 
FastWrite(0,7,$e1 , テ ) : 


DeLay(500) : 

CLrScs: 

GoToXY(20, 10): 

Write() デモ を 終わ り ま す 。 う ): 
DeLay(500) : 

CLrScr: 


end . 


b8 b7 b6 


1 二 財 mo だ 


20H を 引い た も の 


| JIS コー ド 第 2 パ バイト 。 で 来 使用 jlS コー ド 第 1 バイ ト か ら 


漢字 の 左 / 右 


0: 文 字 の 左側 を 表示 
1: 文 字 の 右側 を 表示 


つま り 4 バイ ト で 1 文字 を 表示 


国 図 7-4 


漢字 表現 形式 


せっ か く こ こま で や っ た の で すか ら 、 今度 は 漢字 も 表示 で きる よう に さら に fastwrite 
を 改造 し ます 。MS-DOS 上 で 走る 関係 か らち 、TURBO Pascal の 内 部 で は 漢字 は 2 バイ 
ト の シフ ト JIS コー ド で 表現 きれ て いま す 。 一 方 、PC-9801 の 内 部 で は 2 バイ ト の JIS 
コー ド で 表現 きれ て いる の で 、VRAM に 書き 込む 際 に シフ ト JIS-JIS へ の コー ド 変 換 
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を し て や ら ね ば な り ま せん 。 し か も 、 こ の 2 バイ ト の コー ド を VRAM の 偶数 アド レス 、 
言 数 アド レス に 書き 込ま ね ば な り ま せん 。 

さら に 、PC-9801 の VRAM に 書き 込む とき に は JIS コー ド そ の まま で は な い の で 
す 。 図 7-4 に その 形式 を 示し て お きま す 。 

これ を 考慮 し て 手続 き fastwrite を 改造 し た の が リス ト 7-8 で す 。 主 な 改造 筐 所 は 40 
行 以 下 の kanji で 始ま る ラベ ル の と ころ で す 。kanji か ら kanji7 まで が シフ ト JIS を JIS 
コー ド に 変換 し て いる 部 分 で す 。getchar の と ころ で 、 入 力 文字 が 漢字 か ANK 文字 か 
を 判断 し て いま す 。 

この 判断 は シフ ト JIS コー ド の 第 1 バイ ト が 8OH 一 9FH 、EOH 一 FEH で ある の で 、 
簡単 に で きま す 。 入 力 文字 が 漢字 の と き に は 2 バイ ト で 1 文字 で すか ら 、CL を 1 減ら 
し て いま す 。testhi で 文字 を 書き 込む と き に 、 漢 字 か どう か を 判定 する た め 、BH が 0 
で な いか どう か を 見 て いま す 。 漢字 は BX 全体 を 使用 する の で 、 こ れ で 判定 で きる か 
ら で す 。 表 示 文 字 が 漢字 だ と 、 テ キス ト VRAM 表示 エリ ア を 4 バイ トト 、 ア デア トリビュー 
ト ・ エ リア を 2 バイ ト 使 用 し ます 。 

103 行 目 で ルー プ が 終了 する と 105 行 目 に いっ た ん ジャ ンプ し 、 そ こ か ら さ ら に 32 
行 目 に ジャ ンプ する 2 段 構 を に な っ て いる の は 、LOOP や 条件 付き ジャ ンプ で は - 126 
ー 十 129 バイ ト 以 内 し か 分 岐 で き な い た め の 工 夫 で す 。 


圏 リス ト 7-8 

1: {LIST7_8} 8 

4 

3: procedure Fastwrite(coL ,row,attrib : byte : 

4: Var str : Str80) : 

な : 

6: begin 

2 TnLine 

[お ($1E/ { push ds 相 

9: $1E/ {t Pusn ds + 
10: $8A/$86/row/ mov aL,row[bp+0] } 
1 き : $B3/$50/ { mov bL,80 + 
1: $F6/$E3/ 電 mu bL + 
4 き ? $2B/$DB/ { Sub bx,bx + 
14: $8A/$9E/coL/ t mov bL,coL[bp+0] }+ 
15: $03/$C3/ { add ax,bx + 
16: $03/$CO/ { add ax,aX ナ 
3 学 ! $8B/$F8/ { mov di,ax 叶 
18: $B7/$00/ { movy bh,00h + 
19: $C4/$B6/str/ ま Les si,str[bp+0] } 
20 : $2B/$C9/ { Sub CX,CX + 
2 の ま ょ $26/$8A/$0C/ { mov cL,es: [si] + 
22・ $2B/$CO/ { Sub ax,axX } 
29: $1F/ {t Pop ds + 
24 : $22/$C9/ { andi 65 ct + 
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ンー 
26 : 
27? 
28: 
29 : 
30 : 
に ) 
32: 
84 
34 : 
35: 
36 : 
に 7 人 
38 : 
39 : 
40: 
41 : 
42: 
43: 
44 : 
45: 
46: 
47 : 
48: 
49: 
50: 
51 : 
52: 
53: 


$74/$03/ 
$EB/$04/$90/ 
$E9/$AA/$00/ 
$BA/$AO000/ 
$8E/$DA/ 
$B6/$00/ 


$8A/$96/attrib/ 


$46/ 
$26/$8A/$1C/ 
$80/$FB/$80/ 
$72/$4D/ 
$80/$FB/$E0/ 
$73/$05/ 
$80/$FB/$A0/ 
$73/$43/ 
$FE/$C9/ 
$46/ 
$26/$8A/$3C/ 
$86/$FB/ 


$81/$FB/$2020/ 


$75/$03/ 
$BB/$2121/ 
$80/$FF/$80/ 
$72/$2D/ 
$80/$FF/$A0/ 
$73/$06/ 
$80/$EF/$70/ 
$EB/$09/$90/ 
$80/$FF/$FO/ 
$73/$1D/ 
$80/$EF/$BO/ 


$0A/$DB/ 
$79/$02/ 
$FE/$CB/ 
$02/$FF/ 
$80/$FB/$9E/ 
$72/$06/ 
$80/$EB/$5E/ 
$EB/$03/$90/ 
$FE/$CF/ 
$80/$EB/$1F/ 
$86/$FB/ 
$E4/$60/ 
$A8/$04/ 
$74/$FA/ 
$B0/$0D/ 
$E6/$62/ 
$FA/ 
$E4/$60/ 


{ 
{done1 : 
{て textmem: 


kan]1 : 


kan]11 : 


kan]12 : 


{kan]16: 
tkan]17 : 


て testLow: 


{ 
{ 
{ 
{ 


testh1 : 


] 

Jmp 
Jmp 
mOV 
moOV 


done1 
graphics 
done 

dx ,0a000h 
ds ,dX 
dh,00h 

dL , attrib [bp+0] 
S1 
bL,es : [si] 
bL,80h 
testLow 
bL,0e0h 
kan] ふ 
bL,0a0h 
testLow 
cL 

S1 
bh, es : [si] 
bh,bL 

bx ,2020h 
kan]12 

bx ,2121h 
bh,80h 
testLow 
bh,0a0h 
kan]13 
bh,70h 
kan]i4 
bh,O0fOh 
testLow 
bh,0b0h 


bL,bL 
kan]i5 
bL 
bh,bh 
bL ,9eh 
kan]16 
bL ,5eh 
kan]i7 
bh 
bL,1fh 
bh,bL 
aL,60h 
aL,04h 
testLow 
aL,O0dh 
62h , aL 


トラ トラ トラ トラ メラ つつ つの や や mm アア w ア wo マテ タテ ママ テマ ママ ァァァ ママ ァ ママ マ ァ ママ ママ マテ ママ ママ テマ マテ ママ マー 


aL,60h 
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74 : $A8/$04/ { test aL,04h } 
75: $74/$EF/ { jz testLow + 
76: $80/$FF/$00/ t cmp bh,00h + 
77: $74/$03/ { -je ank } 
78: $80/$EB/$20/ {t sub bL,20h + 
79: $89/$1D/ tank : mov ds:[di] ,bx ナ 
80: $80/$FF/$00/ 【 cmp bh,00h +} 
81: $74/$09/ { je ank1 } 
82 : $47/ { inc di + 
83: $47/ { inc di + 
84 : $80/$C7/$80/ { add bh,80h + 
85 : $89/$1D/ { mov ds:[di] ,bx + 
86: $4F/ { dec di 0 
に Y\ 衝 $4F/ { dec di 1 
88: $1E/ tank1 Push ds 1 
89 : $52/ { PuSh dx + 
90 : $BA/$A200/ { mov dx,0a200h + 
91 : $8E/$DA/ { mov ds,dx } 
92: $5A/ { Pop dx + 
93 : $89/$15/ て mov ds: [di] ,dx + 
94 : $80/$FF/$00/ { cmp bh,00h } 
95: $74/$04/ { je ank2 } 
96 : $47/ { inc di ナ 
97 : $47/ { inc di + 
98: $89/$15/ { mov ds: [di] ,dx } 
99: $1F/ tank2: Pop ds } 
100: $47/ { inc di + 
0 も て $47/ { inc d ュ + 
102: $B7/$00/ mov bh,00h } 
103: $E2/$03/ { Loop getchar1 +} 
104: $EB/$04/$90/ 【 jmp done } 
105: $E9/$61/$FF/ tgetchar1 : mp getchar + 
106: $1F) : {done: Pop ds +} 
107 : end : 


リス ト 7-9 は リス ト 7-8 の 漢字 対応 版 の fastwrite を 使用 し た 画面 高速 書き 込み の デ 
モ プ ログ ラム で す 。 漢字 コー ド の 変換 が 入っ て いる に も か か わら ず 、 猛 烈 な 速度 で 一 瞬 | 
の うち に 画面 全体 に 文字 が 書き 込ま れ ま す 。 「 


圏 リス ト 7-9 
program LTST7_9: 


東 < 
か 
き ③: t8e8 Cr セ : 

4: 

5 tYpe 

6 Str80 = string[80] : 
7 


ZZ3. スク リー ン に 直接 アク セス する 


Va 


区 1 、) 8 も 8O. 
2 : 8 も 8O0 : 
7 : byte 5: 


{t$1 LIST7-8.PAS+} 


begin 


CLrScr: 

GoToXY(20,10) : 

Write(? 普通 の 書き 込み で す 。 う ): 
DeLay(1000): 


for y := 1 to 12 do 
begin 
GoToXY(0,2*7) : 


Write(?Our po1icy is to a1ways bl1ame the computer!'! 


コッ み ビ ネー ツ の に 理 作 を と ちせ まし 1554 で う 3 
GoToXY(0 ,2*y+1) : 
Write(?GARBAGE ITN..... GARBAGE OUT..... GTGO! ! , 
> ゴミ が 入れ ば ゴミ が 出る 1? の : 


end : 


DeLay(1000): 
CLrScr: 


GoToXY(20,10) 
Write(: 高速 書き 込み で す 。 う ): 
DeLay(1000): 


x1 :=?Uur po1icy 1s to al1wayS blame the computer!?+ 
ンピュータ に 青 住 を で ちせ まじ ま ナ 。) 
x2 :=7GARBAGE TIN..... GARBAGE OUT..... GTG0O!?+ 
ぅ ゴミ が 入れ ば ゴミ が 出る 12 >: 


for 7:=0 to 12 do 
begin 
Fastwrite(0,2*y,$a1 ,x1) : 
Fastwrite(0,2*y+1 ,$81 ,x2) : 
end : 


DeLay(1000) : 

CLrScr: 

GoToXY(20,10) : 
Write() デモ を 終わ り ま す 。 う ): 
DeLay(1000) : 

CLr8cr : 


end . 
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ここ で は アセ ンプ ブラ が ある 程度 わか っ て いる 読者 を 対象 と し まし た が 、fastwrite は 
画面 に 大 量 に 文字 を 表示 する と き に 利用 で きる は ず で す 。 ア セン プラ が わか ら な いひ 
と も 、 お も し ろ い こと が で きそう な アセ ンプ ブラ の プロ グラ ム を 雑誌 や 本 で 見 つけ た ら 、 
ここ で 紹介 し た 方 法 を 使っ て TURBO Pascal の 手続 き に 直し て 実験 し て みる と よい で 
し ょ う 。 た だ し 、 そ の と き は いつ 半 走 し て ファ イル を 壊さ きれ て も よい よう に 、 バ パック 
アッ プ 用 の フロ ッ ピ ー で 実験 し て くだ さい 。 


ウィ ンド ウブ プロ グラ ミン グ 
7ー4mTURBO Vison を フル 活用 

私 た ち 素 人 が 作る プロ グラ ム と プロ が 作っ た 売り も の に な る プロ グラ ム の 違い は な ん 
で し ょ うか 。 プ ブロ が 作っ た プロ グラ ム は 内 容 的 に も よく 整理 され て いて 、 後 か ら の 保守 
が や りや すい と か 、 バ グ が 出 に くい よう に な っ て いる と か 、 ス ピー ド が 速い と か が 挙げ 
られ る で し ょ う 。 し か し 、 最 大 の 違い は ユー ザー イン タフ ェ ー ス の 分 か りや すさ で す 。 
つま り 、 必 ず し も パソ コン の 上 級 者 で は な いひ と に で も 使い や すく で き て いる こと で 
す 。 使 いや すい プロ グラ ム と は 画面 を 見 れ ば 、 何 を すれ ば よい の か が 一 目 で わか る プロ 
グラ ム と いう こと に な り ま す 。 そ の た め に 欠か せな い テ クニ ッ ク が ウィ ンド ウ で すず 。 

画面 に 次 々 に ウィ ンド ウ を 開き 、 そ れ を 拡大 、 移 動 し た り 、 そ し て 用 が 済ん だ ら ク 
ロー ズ (閉じ る ) し た り と いう プロ グラ ム を 作る の は 大 変 で す が 、 ユ ー ザ ー に と っ て は 
と て も あり が た いも の で す 。 と は いえ 、 そ ん な プロ グラ ム を どう し た ら 作 れる の か 途方 
層 A6 オ C で し まい Ws 表 

と ころ が 、TURBO Pascal の ver6.0 か ら 追加 され た TURBO Vision( タ ー ボ ・ ビ ジョ 
ン ) を 利用 する と 、 い と も 簡単 に 実現 で きる の で す 。TURBO Pascal プロ グラ マー と 
し て これ を 見 逃す 手 は あり ませ ん 。 な に し ろ 、TURBO Pascal の 統合 環境 も $ TURBO 
Vision を 使っ て 作ら れ て いる の で すか ら 、 ま ず ほ と ん どの ウィ ンド ウ 環 境 な ら こ れ で 
な ん と か な り そ う で す 。TURBO Vision 自体 の 解説 は TURBO Pascal に 付属 し て くる 
TURBO Vision ガイ ド に その すべ て が 書い て あり ます 。 こ の ガイ ド は な ん と 600 ペー 
ジ 弱 と いう 超大 作 (?) な の で 、 読む の に 少々 骨 が 折れ ます 。 頭 か ら 読ん で 行こ うと する 
と 途中 で 挫折 し か ね ませ ん 。 い き な り これ に 取り か か る より も 、 オ プ ブ ジ ェクト 指向 プロ 
グラ ミン グ に 慣れ て か ら の ほう が ずっ と 簡単 に 理解 で きま す 。 

TURBO Vision を 理解 する と き に 、 こ れ は ウィ ンド ウ 環 境 を 作る た め の ユ ニッ ト を 集 
め た ライ ブラ リ の よう な も の で な いか と いう 先入観 が ある と 、 何 が 書い て ある の か わか 
ら な く な る の で す 。 し か し 、TURBO Vision と は オプ ジェ クト の 集合 と 考え を る と 、 す べ 
て が 突然 すっ きり と 理解 で きる よう に な り ま す 。TURBO Vision は ウィ ンド ウ 環 境 を 作 
る 上 で 必要 と な る オプ ジェ クト を 提供 し て くれ ます 。 だ か ら と いっ て 、TURBO Vision 
の オプ ジェ クト し か 使え な いと いう こと で は な い の で す 。 い わ ば 、TURBO Vision は オ 


と 4 ウィ ンド ウ プ ロ グラ ミン シング 153 


プ ジ ェ クト の 骨組 み を 与 を る の で 、 こ うし た いと いう 目的 に 沿っ た メソ ッ ド を 書け ば 、 
提供 され て いる オプ ジェ クト の メソ ッ ド を オー バー ライ ト す る こと が で きま す 。 

し か も 、 オ ー バ ー ラ イト し た 部 分 以外 は 上 位 の オプ ジェ クト の メソ ッ ド が 継承 され る 
の で 、 変 更 は 必要 最小 限 で 済み ます 。 も し も TURBO Vision が 単なる ライ ブラ リ 集 で 
あっ た ら 、 変 更 す る と き に は 変更 する 部 分 を 含む プロ グラ ム の ソー スコ ー ド を 書き 換 
えな けれ ば な り ま せん 。 こ ん な こと を する と バグ が 生ま れる も と に な り ま す 。 す で に デ 
バッ グ が 終わ っ て 完全 に 動作 する こと が 確認 きれ て いる オプ ジェ クト の メソ ッ ド に は 何 
も 手 を 加え ず 、 変 更 部 分 だ け に 集中 し て プロ グラ ム を 作れ る の が オブジェ クト 指向 を 全 
面 的 に 取り 入れ た TURBO Vision の すばらし いと ころ で す 。 

TURBO Vision の 機能 は 非常 に 多い の で 、 こ こ で すべ て を 解説 する こと は と て も 無 
理 で す 。 こ こ で は TURBO Vision の 使い 方 の 実例 を な が め て 、 ど ん な も の か を 味見 す 
る 程度 に し て お きま す 。 リ スト 7-10 を 見 て くだ さい 。 こ れ は ファ イル の 内 容 を 読み 込 
ん で 、 画 面 に 開い た ウィ ンド ウ に 次 々 に 表示 する も の で す 。 プ ログ ラム の 解説 に 入る 前 
に 、 コ ン パ イル し て 実行 し て みて くだ さい 。 た だ し 、 こ の プロ グラ ム は 統合 環境 か ら 実 
行き せよ うと する と 、 メ モリ 不足 で 動き ませ ん 。TURBO Pascal に 付属 し て いる コマ ン 
ドラ イン コン パイ ラ TPC で コン パイ ル し て くだ さい 。 そ の と き に は 、3 行 目 の uses で 
宣言 きれ て いる 各 ユ ニッ ト が つけ 加え られ る よう に 、 デ ィ レ クト リ を 指定 し て お く 必 要 
が あり ます 。Dos 、Objects ユニ ッ ト は 潤 TP に 、Drivers 、Views 、menus 、 Dialog 、 
App ユニ ッ ト は 壮 TP\\TVISION に 、StdDlg と Fviewer は 蘭 TP\TVDEMOS に あり 
ます 。 し た が っ て ハー ド デ ィ スク A ドラ イブ に TURBO Pascal が イン スト ー ル され た 
標準 状態 で 、B ドラ イブ の ルー トディ レク トリ 上 に ある リス ト 7-10 を コン パイ ル す る 
の で あれ ば 、 


A>\TP\TPC B:\LTST7-1 /UA:\TP :\TP\TVTSTUON: \TP\TDEMOS 


と し ます 。/ 記 号 の 後ろ の U は これ に 続く ディ レク トリ 内 か ら ユ ニッ ト を 探し て くる よ 
うに と の 指定 で す 。 こ の 例 で は カレ ント ドラ イブ が A ド ライ ブ で すか ら 、A: は な く て 
も か まい ませ ん 。 あ な た の TURBO Pascal の イン スト ー ル 状態 に より カレ ント ドラ イ 
プ 以 外 の ドラ イブ に 上 記 の ユニ ッ ト が 存在 する と き に は 適当 に 変え て くだ さい 。 

さて 、 コ ン パ イル し て 実行 し て みた 結果 は どう だ っ た で し ょ うか 。 こ れ ほ ど 和 複雑 な 動 
き を する プロ グラ ム が わずか 120 行程 度 で 作れ た こと に 稀 い た で し ょ う 。 こ ん な プ ブログ 
ラム な ら マ ウス の 使い で も あり ます 。 む ろ ん 、 マ ウス の な い 場 合 で も TAB キー、 矢 印 
キー な ど を 組み 合わ せれ ば 動作 し ます 。 


圏 リス ト 7-10 
1: program LTST7_10: 
と と 


CIAPTFPR で 多才 テ オイ ツ 導 


uses 
Dos , Objects, Drivers , Views , Menus 、 Dia1ogs , 
StdD1g, App, FViewer: 


con8t 
cmFileUpen 


tYpe 


100: 


TV_SamplePtr = ^TV_Samp1e: 


TV_Samp1e = object(TApp1ication) 
ConStructor Tn1it: 
procedure Fi1eUpen(Wi1dCard: PathStr) : 
Procedure Hand]eEvent(var Event: TEvent) : Yirtua] : 
procedure TnitMenunBar: 1 エ tua] : 
procedure TnitStatusL1ne: 1 エ tua] : 
procedure ViewFi1e(F1i1eName: PathStr) : 
end : 


: constructor TV_Samp1e . Init : 
: begin 


TApp1ication . Tn : 
RegisterUb]jects: 
RegisterViews : 
RegisterMenus : 
RegisterDia1ogs : 
RegisterAPD: 
RegisterFViewer : 


: end: 


: procedure TV_Samp1e .Fi1eUpen(Wi1dCard: PathStr) : 
: Var 


Direc: PFi1eDia1og: 
FileName: PathSt+r : 


: begin 


Direc := New(PFi1eDialog, Init(Wi1dCard, Se1ect Fi1e' , 
?CN~ame) , fdOpenButton, 100)) : 
if Va]idView(Direc) <> ni1 then 
begin 
1f Desktop~ .ExecView(Direc) く > cmCance1] then 
begin 
Direc~ .GetFi1eName(Fi1eName) : 
ViewFi1e(Fi1eName) : 
end : 
Dispose(Direc, Done) : 
end : 


: @end: 
50: 
お わ ま ょ 


Procedure TV_Samp1e .Hand1eEvent(var Event: TEvent) : 
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52: begin 
53: TApp1ication .Hand1eEvent (Event) : 
54: 1f Event .What = evCommand 


55: then 

56: if Event .Command = cmFileUpen 
57: then 

58: begin 

59: Fi1eOpen(?*.*2): 

60 : C1earEvent(Event) : 

61 : end 

82* else 

63: Ex1 も : 

64: end: 

65: 

66: procedure TV_Samp1e . InitMenuBar : 
67: var 

68: R: TRect: 

69: begin 


70: GetExtent(R) : 
ャ ウッ ド 間 林 人 旨 て. 提 : 時 寺 る っ 時 
3 MenuBar := New(PMenuBar, Tnit(R, NewMenu( 


3 NewSubMenu(?^F^i1e), hcNoContext, NewMenu( 

74: NewItem(?^U^pen...) , )F3) , kbF3, cmFi1eUpen , hcNoContext , 

4 NewLine( 

76: NewTtem( 7E~x~1t)。 2Grph-X) 、 kbA1tX , cmNuit, hcNoContext, ni1 ) ) ) ) 
の 71 NewSubMenu(?^W~indow) 。 hcNoContext , NewMenu( 

4 に NewTtem(?“Z^oom)。 7F5? 。 kbF5, cmZoom, hcNoContext , 

79: NewItem(?^N~ext?, 7F6? , kbF6, cmNext, hcNoContext , 

80: NewTtem(?^C^1ose) , ?Grph-F3) kbA1tF3, cmC1ose, hcNoContext , ni1 ) ) ) ) , 
81 : ni1 ) ) ) ) ) : 

82: end: 

83: 

84: procedure TV_Samp1e . InitStatusLine: 

85: var 

86 : R: TRect: 

87: begin 


88: GetExtent(R): 
89: 放っ 本 民 RB、 ル テオ: 
90 : StatusLine := New(PStatusLine , Tnit(R, 


91: NewStatusDef(0, $FFFF , 

92 : NewStatusKey('~Grph-X~ Exit'。 kbA1tX, cmQu1t , 

93: NewStatusKey('^F3~ Open', kbF3, cmFi1e0pen , 

94 : NewStatusKey( ?~Grph-F3~ C1ose', kbA1tF3。 cmC1ose , 

95 : NewStatusKey(*^F5~ Zoom' , kbF5, cmZoom, ni1) ) ) ) , ni1) ) ) : 
96: end: 

97 : 

98: procedure TV_Sample.ViewFi1e(Fi1eName: PathStr) : 

99: var 


100: W: PWindow: 


156 CO 打 AP7E 表 で ーー ボー ツテ ブフ ネッ 久 甘 


101: begin 

10 の : W := New(PFi1ewindow, Tnit(Fi1eName) ) : 
103: 

104: if Va1idView(W) <> ni] then 
105: Desktop~ .Insert(W) : 

106: end: 

よ 07 

108: var 

109: Sample: TV_Samp1e: 

110: 

111: begin 


ロン 人 Samp1e . Tn1t: 
113: Sample . Run : 
114 : Sample .Done: 
115: end 。 


それ で は プロ グラ ム の 中 身 を 見 て み ま し ょ う 。 プ ログ ラム を 解読 する に あたっ て は 、 
TURBO Vision ガイ ド と 実際 に 各種 ユニ ッ ト を 画面 に 表示 し て くだ さい 。 先 ほど の 3 行 
目 の uses 宣言 され て いる 各 ユ ニッ ト の 内 容 の 説明 は マニ ュ ア ル に ゆず る と し て 、11 行 目 
か ら 始 まる オブ ジェ クト TV_Sample の 中 身 を 見 て み ま し ょ う 。 11 行 目 の オブ ジェ クト の 
ポイ ンタ 化 は も うす で に 7-2 節 で お な じみ で す 。13 行 目 で TV_Sample が TApplication 
の 下位 の オプ ジェ クト に な っ て いま す 。 

TURBO Vision を 使用 する アプ リケーション は 必ず TApplication の 下位 オブ ジェ 
クト と し て 定義 され ます 。 こ こ で は それ を TURBO Vision の サン プル と いう こと で 、 
TV_Sample と 名 付け て お きま す 。 プ ログ ラム の 終わ り の ほう に ある メイ ンプ ログ ラム 
で は TV_Sample の イン スタ ンス を Sample と し て 、 わ ず か 3 行 で 初期 化 、 ユ ー ザ ー と 
の 対話 、 そ し て 終了 処理 を 行っ て いま す 。 これが TURBO Vision の プロ グラ ム の いわ 
ば 定形 に な り ま す 。 

14 一 19 行 目 は TApplication の メソ ッ ド を オー バー ライ ト し て いる メソ ッ ド の 宣言 
で す 。 そ れ ぞ れ の 具体 的 な 内 容 は 22 行 目 か ら 始 まり ます 。 最 初 は 初期 化 で す 。22 行 目 
で 画面 の 上 端 に ある メニ ュー バー、 下 端 に ある ステ ー タ スラ イン 、 デ スク トッ プ と 呼ば 
れる 画面 を 初期 化し ます 。25 - 30 行 目 は 各種 オブ ジェ クト を 汎用 入出 力 (スト リー ム ) 
可能 と する た め の 登 録 で す 。 

33 行 目 は メニ ュー の File の 中 か ら Open を 選ん だ と き に 、 画 面 に 何 を 表示 し て 、 そ 
こ か ら 何 を 手 に 入れ る か の メソ ッ ド で す 。35 行 目 の Direc は 壮 TVISION の 中 に ある ユ 
ニッ ト StdDlg で 定義 され て いる オブ ジェ クト PleDialog の イン スタ ンス で す 。 こ の 
オプ ジェ クト は 画面 に ウィ ンド ウ を 開き 、 か つ そ の 中 に 指定 され た パス の ファ イル の 表 
示 、 お よび クリ ッ ク ボ タン の 表示 を し ます 。36 行 目 は Dos ユニ ッ ト の パス 名 を 与え る 
型 の 変数 と し て FileName を 宣言 し て いま す 。 

38 行 目 の New に より オプ ジェ クト を 生成 し 、40 46 行 目 で ウィ ンド ウ 内 の クリ ッ 
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クボ タン が Cancel で な い 場 合 、 つ まり な ん ら か の ファ イル が 選択 さき れ た と き の 処 理 を 
し ます 。 こ こ で は カレ ント ディ レク トリ 上 の ファ イル の み の 表 示 と 選択 を 行っ て いま す 
が 、 ユ ニッ ト StdDlg は 開い た ウィ ンド ウ 内 で ディ レク トリ の 変更 で きる よう 作ら れ 
て いま す 。 キ ャ ン セ ル さ れる か 、 な に か ファ イル が 選ば れれ ば この オプ ジェ クト は 存在 
する 必要 が あり ませ ん か ら 、47 行 目 で 破壊 され ます 。 “ 

51 行 目 か ら は イベ ント 、 つ まり ファ イル が 選ば れ た と き の 処 理 で す 。 イ ベン ト の コマ 
ンド と し て ファ イル の 読み 込み が 選ば れ た と き に は 、59 行 目 の よ うに すべ て の ファ イ 
ル を 意味 する ワイ ルド カー ド *.* に より ファ イル を 読み 込み ます 。 そ れ 以 外 の イベ ント 
は 存在 し ませ ん か ら 、63 行 目 で 何 も ち し な いで 外 へ 出る よう に し て いま す 。 

66 行 目 か ら は メニ ュー バー を 作る メソ ッ ド で す 。 68 行 目 は 画面 内 の 座標 用 の レコ ー ド 
で す 。70 行 目 で アプ リケーション の 領域 を 確保 し て 、 最 上 段 か ら 1 行 下 ま で を メニ ュー 
と し ます 。72 行 目 は メニ ュー バー を 作る と き の 定 石 で す 。 実 際 に この プロ グラ ム を 実 
行 し た と き の 画 面 の 様子 と 比較 すれ ば よく わか る で し ょ う 。 こ こ で ~ 印 は それ で 挟ん だ 
文字 を ハイ ライ ト に し ます 。cm は その メニ ュー 項目 が 選ば れ た と き の コ マン ド 、hc は 
その メニ ュー 項目 に 対す る ヘル プ を 示し ます 。 こ こ で は ヘル プ 機 能 は 付け て いま せん か 
ら 、hcNoContext と し て 何 も ヘ ルプ が な いよ うに し て いま す 。 

84 行 目 か ら は 画面 の 最 下 段 に 表示 され る ステ ー タ スラ イン を 作る メソ ッ ド で す 。89 
行 目 で ステ ー タ スラ イン を 画面 の 最 下段 か ら 1 行 目 に 設定 し ます 。 中 身 の 設 定 法 は メ 
ニュ ー バ ー と よく 似 て いま す 。98 行 目 か ら は 実際 に 画面 に ファ イル 内 容 を ウィ ンド ウ 
内 に 表示 する た め の メ ソ ッ ド で す 。100 行 目 で PWindow と いう ユニ ッ ト FViewer で 定 
義 さ れ て いる オブ ジェ クト の イン スタ ンス に よっ て ウィ ンド ウ 表 示 を し て いま す 。105 
行 目 で ウィ ンド ウ W を デス クト ッ プ に イン サー ト す る こと に より 、 こ の ウィ ンド ウ が 
自動 的 に 画面 表示 され ます 。 

ここ まで 販 ナ け 足 で 解説 し まし た が 、 こ れ だ け の 説明 で は TURBO Vision の 使用 法 の 
あら まし し か 理解 で き な か っ た か も し れ ま せん 。TURBO Vision の 解説 だ け で 本 が 何 
冊 も 書け る ほど で すか ら 無 理 も な いこ と で す 。TURBO Vision は 非常 に 便利 で すか ら 、 
ぜひ あな た の プロ グラ ミン グ 技 術 に 取り 入れ た いも の で す 。 そ の た め の 和 勉強 と し て は 次 
の ステ ッ プ を お 勧め し て お きま す 。 


(1)「 TURBO Pascal ト レー ニン グマ ニュ アル 」 の オブ ジェ クト 指向 プロ グラ ミン グ の 
項 を 読む 。 

(2) 本 書 の 7-2 節 の オプ ジェ クト に よる アニ メー ショ ン を 読む 。 

(3) TURBO Pascal 添付 の TURBO Vision ガイ ド を TURBO Pascal の ディ レク トリ 
半 TP\DOCDEMOS に 入っ て いる 例題 TVGUID01 一 16.PAS を 実行 し な が ら 読む 。 
(4) ディ レク トリ 侍 TP\TVDEMOS に 入っ て いる 例題 を 解読 する 。 各 例題 で 使わ れ て 
いる オプ ジェ クト を 記述 し た ユニ ッ ト も 併せ て 解読 する 。 
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以上 の 順 で 勉強 すれ ば 、 か な ら ず TURBO Vision が 使い こなせ る よう に な る は ず で 
す 。TURBO Pascal が オブ ジェ クト 指向 プロ グラ ミン グ に 拡張 され た の は ver5.5 か ら 
で す が 、TURBO Vision は それ を 利用 し た ツー ル に な っ て い まり 。 | オプ ジェ クト ニッ 
ト と し て 提供 きれ る ツー ル は ユー ザー に 対し て ソー スコ ー ド を 提供 せ ず に 、 か つ ユ ー 
ザー 側 の 自由 度 を 制限 し な いた め に 、 ソ フト ハウ ス に も ユー ザー に も 歓迎 すべ き コ ン セ 
プ ト で す 。 こ この と ころ C 言語 に 押さ れ 気 味 の TURBO Pascal で す が 、 こ の オブ ジェ 
クト 指向 に より プロ の ソフ ト 開 発 に も 十分 使用 で きる 機能 を 備え まし た 。 あ な た も ぜひ 
TURBO Vision を 使い こなし 、 す ば らし い ソ フト を 作っ て みて くだ さい 。 


テキ スト 画面 切り 替え 
7ー5mVRAM の BIOS を コン トロ ー ル する 


アプ リケーション ・ プ ログ ラム を 作っ て いて 、 入 力 に よっ て 2 つの 画面 を 互い 違い に 
表示 し な けれ ば な ら な いこ と が 結構 あり ます 。 そ ん な と き に 画面 を いち いち 書き 換え て 
いた の で は 速度 が 遅く な っ て し まい ます 。 グ ラフ ィ ッ ク 画 面 の 切り 替え を に つい て は す で 
に 7-1 節 で トレ ー ニ ング し まし た か ら 、 今 度 は 、PC-9801 に 用 意 き され て いる 2 枚 の テ 
キス ト 画 面 を 利用 し て 、 そ れ を 切り 替え て 表示 する サン プル ・ プ ログ ラム を 開発 し て み 
ま お 秋 信 3 

プロ グラ ム の 内 容 は 、 単 に Dos ユニ ッ ト の TextBank 手続 き で 第 0 画面 と 第 1 画面 
を 切り 換え て いる だ け で すか ら 、 説 明 の 必要 は な いで し ょ う 。 


田 リ スト 7-11 
1: program LTST7_11: 
PA 
3: Uses Crt,Dos: 
4: 
5: begin 
6: G:Y9CY > 
芝 WriteLn(: ***** テキ スト 画面 の デモ ***** 2): 
8: WriteLn() どの キー で も 押せ ば デモ を 終わ り ま す 。 う 》: 
9: WriteLn : 
10: WriteLn() こく < テキ スト 画面 1>> う ): 
) 
12: TextBank(1) : 
18 WriteLn(? **** ネ ネネ テキ スト 画面 の デ モ ** ネ *** ?): 
14 : WriteLn : 
15: WriteLn() くく テキ スト 画面 2 ラ > うう): 
16: 
26 repeat 
18: TextBank(0) : 
19: DeLay(500): 
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20 : TextBank(1) : 

21: DeLay(500): 

ピント untiL KeyPressed : 

2 : 

24 : CLrScr: 

25 : TextBank(0) : 

の 2 放 CLrScr: 

27: WriteLn(〉 ***** テキ スト 画面 切り 替え デモ 終り ***** 2): 
28: end . 


テキ スト 画面 2 ペー ジ 目 の 使い 方 と し て 、 た と えば ディ レク トリ を 記入 すれ ば 、 画 面 
を 切り 替え る だ け で ディ レク トリ が 見 る こと が で きま す 。 こ うす れ ば 、 フ ァイル を 使う 
アプ リケーション な ど で 、 い ちい ち デ ィ レ クト リ 取 得 の た め の 操作 を し な いで 済み ます 
か ら 、 プ ログ ラム が すっ きり し ます し スピ ー ド も アッ プ し ます 。 実に 簡単 な テク ニッ メック 
で す が 、 こ れ 以 外 に も お も し ろ い 使い 方 が いろ いろ 考え られ る と 思い ます 。 


カー ソル 制御 
7ー0mGDC を コン トロ ー ル する 

カー ソル は どこ へ テキ スト 入力 が 行わ れる の か を ユー ザー に 示す も の で す が 、 形 は 四 
角 い の が 普通 で す 。 し か し 、 入 力 を 強く 促す と き に は 高速 で 点 減 し 、 ま た ある と き は 形 
を 変え たり 、 ま っ た く 表 示し な か っ た り と いろ いろ 操作 し た い 場 合 が あり ます 。 カ ー ソ 
ル を 操作 する こと な ど 不 可能 に 思え ます が 、 複 雑 な こと を し な い の な ら PC-9801 の 
PD7220GDC( グ ラフ ィ ッ ク ・ デ ィ ス プレ イ ・ コ ント ロー ラ ) を TURBO Pascal か ら 操 
作 す れ ば 科 単 に で きま す 。 

具体 的 に は 定義 済み 配列 port で GDC を 指定 し 、 そ れ に 対し て デー タ を 入力 し て や 
り ま す 。 こ れ も サ ンプ ル ・ プ ログ ラム を 見 だ た ほう が すぐ に わか る と 思い ます 。 


圏 リス ト 7-12 
: program LTST7_12: 


: Uses Cr も 


1 
2 
3 
4: 
5: procedure Standard_Cursor: 
(> 
4 
8 


begin 
Port [$0062] := $4b: 
9: Port [$0060] := $8f: 
10: Port [$0060] := $Of: 
11: Port [$0060] := $fb: 


人 は end : 
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43! 
14: 
15: 
16: 
17 : 
18: 
19: 
20 : 
21 。 
2 
に と 
24 : 
25: 
26 : 
2 が 
28: 
29: 
30 : 
31 : 
づつ 2 
383 
34 : 
G5 : 
36 : 
に Y 和 
38 : 
39 : 
40: 
41 : 
42: 
43: 
44 : 
45: 
46: 
47 : 
48: 
49: 
50: 
6: 
52 : 
53: 
54 : 
55: 
56: 
に 7 角 
に に 仙 
59: 
60: 
61 : 


procedure Fast_Cursor : 


begin 
Port [$0062] := $4b: 
Port [$0060] := $8f: 


Port [$0060] := $Of: 
Port [$0060] := $f1: 
end : 


Procedure SLow_Cursor: 


begin 
Port [$0062] := $4b: 
Port [$0060] := $8f: 
Port [$0060] := $Of: 
Port [$0060] $ff : 
end : 


procedure Stop_Cursor : 


begin 
Port [$0062] $4b : 
Port [$0060] := $8f: 
Port [$0060] := $2f : 


Port [$0060] := $f3: 
end : 
procedure No_Cursor: 
begin 
Port [$0062] := $4b: 


Port [$0060] := $Of: 

Port [$0060] := $Of: 

Port [$0060] $fb : 
end : 


Procedure Shape_Cursor: 


begin 
Port [$0062] $4b: 
Port [$0060] := $8f: 
Port [$0060] := $4f: 
Port [$0060] $03: 
end : 


t メ イン プロ グラ ム } 
begin 
CLYSCT : 
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62: writeLn() くく カー ソル 形状 デモ : + 

63: ^ り ター シン キー 押 平 で 光 に 進み ます ふ ユ スン /)6 
64: WriteLn : 

65: Write(? 通常 の カー ソル : うう: 
66: ReadLn : 

67: Fast_Cursor : 

68: Write(? 高速 点 減 2 
69: ReadLn : 

70: SLow_Cursor: 

71: Write(? 低速 点 減 は 
ドジ 1 ReadLn : 

W% Stop_Cursor : 

74 : Write(? 点 減 停止 : うう: 
5: ReadLn : 

4 No_Cursor: 

77: Write(? エン ツル 湯 ま 5: 
78: ReadLn : 

79: Shape_Cursor: 

80: Write(? 変わ り カ ー ソ ル : う )』 
81 : ReadLn : 

82 : Standard_Cursor: 

83: WriteLn() こく カー ソル 形状 デモ を 終わ り ま す 。> ッ > う : 
84: end . 


圏 表 7-1 CSREORIMI コマ ンド 


リス ト 7-12 を 見 て くだ さい 。57 行 ま で は カー ソル を 操作 する 手続 き で す が 、 ど れ も 
port に 対す る 代入 文 だ け で で き て いま す 。 ポ ー ト 番号 は 862 と 60 で す が 、 こ れ は GDC 
に 対す る CSRFEORM( カ ー ソ ル ・ フ ォ ー ム ) 用 の コマ ンド ・ ラ イト と パラ メー タ 設 定 で 
す 。 その 内 容 は 表 7-1 を 参考 に し て くだ さい 。 

表 の 中 の コマ ンド 内 容 は 次 の よう に な り ま す 。 


CS : 文字 表示 時 の カー ソル 表示 の 有無 を 定義 し 、0 だ と 表示 な し 、1 だ と 表示 し ます 。 
L/R : 1 行 中 の 表示 ライ ン 数 を 定義 し 、1(00H) 一 32(1FH) ライ ン ま で で す 。 
BL : 文字 表示 の カー ソル 点滅 周期 と 、 文 字 / グ ラフ ィ ッ クス 混在 モー ド 時 の 文字 属性 用 
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タイ ミン グ 信 号 の 点 減 周期 を 定義 し ます 。 後 者 の 場合 は 4(01H) 一 124(1FH) 画面 まで 
4 ステップ ご と に 定義 し ます 。 

BD : 文字 表示 時 の カー ソル 表示 の プリ ン キ ング (点滅 ) の 有無 を 定義 し 、0 だ と ブリ ン 
キレ ツ グ し 、1 の な ゆら かなり まず 』 

CST : 文字 表示 時 の カー ソル 表示 開始 ライ ン の 値 を 定義 し 、1(00H) 一 32(1FH) ライ ン 
ま 准 で す 。 

CETI : 文字 表示 時 の カー ソル 表示 終了 ライ ン の 値 を 定義 し 、1(00H) 一 32(1FH) ライ ン 
な wok 


以上 の 情報 か ら 作 っ た の が リス ト 7-12 の 中 に ある 6 つの 手続 き で す 。 メ イン プロ グ 
ラム は 60 - 84 行 で す 。 内 容 は カー ソル 操作 の 手続 き を 次 々 に 呼び 出し 、readln 文 で 
リタ ー ン が 入力 され る まで 変化 し た カー ソル を 表示 し 続け ます 。 

賠 じ よう な こと は .BIOS コー ル で も 行う ご と が で きま す 。 形式 は 、 


Intr($18,dos_reg) 


で 、dosreg の 中 の AX レジ スタ に 1001H を 設定 すれ ば ブリ ン キ ング 停止 、1000H な 
ら 開 始 し ます 。 さ ら に 、11xxH(xx は 任意 ) な ら カ ー ソ ル 表 示 、12xxH な ら 表 示 停 止 、 
13xxH に DX に テキ スト VRAM アド レス を 設定 する と カー ソル 位置 を そこ に し ます 。 
手軽 な カー ソル 操作 な ら こ ちら の BIOS コー ル の ほう が 便利 か も 知れ ませ ん 。 


ラン ダム ・ ボ ックス 

7ー7m エ スケ ー プ シー ケン ス を 使う 

画面 を いろ いろ 操作 する トレ ー ニ ング を 続け て きま し た が 、 最 後 は 簡易 グラ フィ ッ ク 
ス と も いう べき グラ フィ ッ ク 文 字 の 表示 を や っ て み ま し ょ う 。TURBO Pascal に 付属 の 
GRX や 7-1 で 開発 し た グラ フィ ッ ク ・ ル ー チ ン を 使用 すれ ば た い が い の こと は こなせ 
る は ず で す が 、 ち ょ っ と メニ ュー 画面 を 枠 で 囲い た いよ うな と き に は これ で は 大 げき で 
す 。 そ こ で 、PC-9801 に 用 意 き され て いる グラ フィ ッ ク 文 字 を 利用 し ます 。 

グラ フィ ッ ク 文 字 は 表 7-2 の よう に 、 カ タカ ナ も 含め 80H 以降 に 設定 され て いま す 。 
し か し 、 こ れ を いき な り 画 面 に 出力 し て も シフ ト JIS コー ド の 漢字 が 表示 され る だ け で 
うま く ぐ 行 きま せん 。 そ れ を や る た め に は MS-DOS の エス ケー プ ・ シ ー ケ ンス を 利用 し 
ます 。 エ スケ ー プ ・ シ ー ケ ンス は CRT 画面 の 制御 を 行う 特殊 文字 列 で 、MS-DOS で は 
表 7-3 の よう に 決め て いま す 。 


圏 リス ト 7-13 
1: program LIST7_13: 
レネ 
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: USeS Crt: 


き 3 

4 

5: const 

6: ESC = #$1B: 
7 : 

8 

9 


12 本 だ 
届き も 1 6 る も 

10: 

11: procedure BoxCo1or(coL:byte) : 

導 め * Var 

13: 人 は 提 5 ゆか 押 

14 : begin 

> case coL of 

16 : OO sm 417 生 2 短 

人 4 か 細い 

18: Gtー は BN: 

19: あい た っ と る 二 に コ 信 O:1 に ・ 

20 : 全 も 6 れ 7 還 し う 2 は ル 20505 < 

2 。 と | 6 > 二 2 の Dm 2 

イン 6 1 KC) 2 ちの 8 本 トー) 

Po (人 C。 2 年 り 730m2 5 1) 

24 : end : 

25 : Write(Lst,ESC,?[),c) : 

26 : end : 

27 : イーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー + 

28: 

29: procedure Box(x1,y1,x2,Y2 : 1integer) : 

30 : Var 

に ) 1 : integer : 

2 ウッ begin 

3。 GoToXY(x1,y1) : 

34 : Write(Lst,#$98) : * 

35 : for 1 := x1+1 to x2-1 do Write(Lst ,#$95) : 

36 : Write(Lst ,#$99) : 

37 : for 1 := 1+1 to 72-1 do 

38 : begin 

39 : GoToXY(x1,1) : 

40: Write(Lst ,#$96)  : 

41: GoToXY(x2,1) : 

42: Write(Lst,#$96)  : 

43: end : 

44 : GoToXY(x1,y2) : 

45 : Write(Lst,#$9A) : 

46 : for 1 := x1+1 to x2-1 do Write(Lst ,#$95) : 

47 : Write(Lst,#$9B) : 

48: end : 

49 : [ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ 

50: var 


8 まま Tr 3EegeB 
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に と 
53: begin 
54 : CLrScr : 


55: Assign(Lst, CON): 
56: ReWwrite(Lst) : 
57: Write(Lst,ESC,))3?) : 


58: Random1ze: 

59: for 了 エ := テ 1 to 10 do 

60: begin 

61 : BoxCo1or(Random(7)) : 

62: Box(1+Random(40) , 1+Random(12) , 

63: 40+Random(40) ,13+Random(11)) : 
64: end : 

65: Write(Lst,ESC,))0 7 ESC, [23m 7 ) : 

66: CLrScrj: 

67: end . 


リス ト 7-13 は 画面 に ラン ダム な 色 と 大 き さ の 四角 を 次 々 に 描く プロ グラ ム で す 。 こ 
の プロ グラ ム 自 体 は エス ケー プ ・ シ ー ケ ンス を 使っ て いる だ け で 、 実 用 性 は 特に あり ま 
せん 。 後 の 第 8 章 で メニ ュー・ ボ ックス を 描く の に 使え る 程度 で す 。 そ れ よ りお も し ろ 
い 使 い 方 が あり ます 。 こ の プロ グラ ム を COM ファ イル と し て 作っ て 友人 に 上 げ る プロ 
グラ ム の コピ ー デ ィ ス ク の オー トバ ッ チ ファ イル に 入れ て お く の で す 。 そ の フロ ッ ピ ー 
を シス テム 立ち 上 げに 使う と 、 い き な り 次 々 に カラ フル な 四角 形 が 画面 に 現れ る の で 、 
友人 を 驚か す に は ちょ うど よい で し ょ う 。 

さて 、 リ スト 7-13 に 戻っ て み ま す 。11 行 目 の 手続 き 、BoxColor は テキ スト 画面 の 
表示 色 を 設定 する も の で す 。 引 数 と し て 色 番 号 を も らい 、 そ れ を MS-DOS の エス ケー 
プ ・ シ ー ケ ンス に 直し て いる だ け で す 。29 行 目 の 手続 き 、Box は 画面 上 で 対角線 に な 
る 角 の 座標 を 指定 し て 四角 形 を グラ フ 文 字 に より 描画 する も の で す 。 攻 $ の 後に 続く 数 
値 は キャ ラク タ ・ コ ー ド 表 か ら 探 し て きた 番号 で す 。 

メイ ンプ ログ ラム は 50 行 目 か ら で す 。57 行 目 で グラ フ モ ー ド 設定 用 の エス ケー プ ・ 
シー ケン ス を 出力 し 、 こ れ 以 後 は シフ ト JIS コー ド の 漢字 出力 を 抑制 し 、 グ ラフ ィ ッ ク 
文字 を 表示 する よう に な り ま す 。59 64 行 の for 文 で ラン ダム な 描画 を お こない ます 。 
61 行 目 で random の 引数 を 7 と し た の は 、8 の 黒色 の 箱 を 描い て も 見 えな い の で 、 表 示 
か ら 外 す た め の 配慮 で す 。62 行 目 で は 、 テ キス ト 画 面 が 25 字 X 40 行 で ある こと を 考 
えて 作っ て いま す 。65 行 目 は 本 来 の 日 本 語 MS-DOS の 表示 画面 で ある 漢字 モー ド に 画 
面 を 復帰 する プロ グラ ム で す 。 こ うし な いと 、 こ の 後 で 実行 する プロ グラ ム の 漢字 表示 
が お か し く な り ま す 。 


ンダ ム ・ ポ ックス 


員 


冊 央 較 回 回 回 回 回 思 回 止 E 思 


本 


% | ン | Fm| - 


・ |+ 
A 役 油 枝 


EKK2E3EIKEIEI 
回 回 四 回 回 回 回 四 回 思 回 回 


回 回 回 回 加 回 回 回 回 


講 
| ユイ トロ エロ ト 
| 


| | 
OL 
BB 


| 注意 | ⑳⑯ は 空白 (スペ ー ス ) コ ー ド を 示す 


一 表 7-2 キャ ラク ター コー ド 表 


表示 文字 に 属性 を 指示 (既定 の 属性 に 戻す の は ESC[m) 


PS (10 進 ) 

0 既定 の 属性 

6 ハイ ライ ト (モノ クロ の み ) 

5 を グ 

7 リ バー ス 

16 8 シー クレ ッ ト 
30 景 淡 ( 暗 ) 

18 34 青 

17 31 赤 

19 35 紫 

20 32 緑 

22 36 水色 

21 33 黄色 

23 37 特 濃 ( 明 ) 
40 リバ ー ス 黒 
41 赤 
42 緑 
43 黄色 
44 青 
45 紫 
46 水色 
47 戸 


※ モ ノ ク ロ CRT 装置 で の 色 の 指定 は 濃淡 と し て 処理 


圏 表 7-3 CRT 制御 コー ド 
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BEL 07 ブザー を 約 | 秒 鳴ら す 
BS 08 カー ソル を | 文字 左 に 移動 
HT 09 カー ソル を 次 の タプ 位置 に 移動 

タプ 位置 08, 16, 24, 32, 40, 48, 56, 64, 72 
LF 0A カー ソル を 同じ カラ ム 位 置 で | 行 下 に 移動 
VT 0B カー ソル を 同じ カラ ム 位 置 で | 行 上 に 移動 
FF 0OC カー ソル を | 文字 右 に 移動 
CR 0D カー ソル を 行 の 左端 に 移動 
SUB IA CRT 画 面 を すべ て クリ ア ( カ ー ソ ル は ホー ム 位 置 
ESC IB エス ケー プ コ ー ド 

カー ソル を ホー ム 位 置 に 移動 
ESC〔pl:pc H カー ソル を pl 行 , pc 列 に 移動 
ESC〔pl:pc f ESC【pl:pc H と 同様 
ESC =lc ESC〔pl:pc H と 同様 (パラ メー タ | と c は 20h の オフ セッ ト が 加え られ る ) 
ESC[pn A カー ソル を 同じ カラ ム 位 置 で 上 に pn 行 移 動 
ESC〔pn B カー ソル を 同じ カラ ム 位 置 で 下 に pn 行 移動 
ESC〔pn C カー ソル を 右 に pn 行 移動 
ESC〔pn D カー ソル を 左 に pn 行 移動 
ESC[0 J カー ソル か ら , 最終 行 の 右端 まで を クリ ア . 
ESC〔I J 先頭 行 の 左端 か ら , カー ソル 位置 まで を クリ ア 
ESC〔2 J CRT 画 面 を すべ て クリ ア 
SC ESC〔2 J と 同様 
ESC〔0 K カー ソル か ら , 行 の 右端 まで を クリ ア 
ESC〔I K 行 の 左端 か ら , カー ソル まで を クリ ア 
ESC〔2 K カー ソル の 行 の 左端 か ら 右端 まで を クリ ア 
ESC[pn M カー ソル の 位置 する 行か ら 下 に pn 行 削除 し , 以降 の 行 を 上 に 詰め る 
ESC〔pn L カー ソル の 位置 する 行 以降 を pn 行 下 に 移動 し , 空白 の n 行 を 挿入 
ESC D カー ソル と 同じ カラ ム 位 置 で | 行 下 に 移動 
ESC E カー ソル を | 行 下 の 行 の 左端 に 移動 
ESC M カー ソル を 同じ カラ ム 位置 で | 行 上 に 移動 
ESC〔s カー ソル 位置 と その 表示 文字 の 属性 を セー ブ 
ESC〔u ESC(s で セー プ し た 内 容 を 戻す 
ESC〔6 n カー ソル 位置 を 直後 の コン ソー ル 入 力 呼び 出し に て 知ら せる . 形式 は ESC〔pl:pc R 
ESC)0 漢字 を 取り 扱う モー ド 
ESC)3 グラ フ 文 字 を 取り 扱う モー ド 
ESC〔>5I カー ソル を 画面 上 に 表示 する モー ド 
ESC〔>5h カー ソル を 画面 上 に 表示 し な い モ ー ド 
ESC〔>Ih CRT 画 面 の 最 下 位 行 を プロ グラ ム で 使用 可能 と する 
ESC〔> CRT 画 面 の 最 下 位 行 は シス テム で 使用 され る 
ESC〔>3h CRT 画 面 の 表示 行 数 を 20 行 に する 
ESC〔>3I CRT 画 面 の 表示 行 数 を 25 行 に する 


田 表 7-4 MS-DOS 制御 コー ド 
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これ が プロ と アマ の 違い 


プロ の 作る ソフ ト と 私 た ち が つ くる ソフ ト と 何 が 違う の で し ょ うか 。 実は 、 プ ロ も ア 
マチ ュ ア も 内 容 的 に は 変わ ら な い プ ログ ラム を 作っ て いる の で す 。 た だ 、 プ ロ は お 客 用 
に 外見 の 部 分 に か な り の 力 を 注い で いま す 。 他社 の パッ ケー ジ ・ ソ フト と 競合 し て お 客 
の 心 を つか むせ に は 、 い っ た い ど うし た ら こ の よう に 作れ る の か と 不思議 に 思わ せる 魅力 
的 な 画面 が 重要 な 役割 を は た し ます 。 

この 章 で は 私 た ち で も まね が 十分 で きる や さ し い プロ の テク ニッ ク を いく つか 紹介 
し ます 。 こ の テク ニッ ク と し て 、 少 な いら 労力 で 高い 効果 を 生み 出す も の だ け を 選び まし 
た 。 な ん だ こん な を 程度 か と 思っ て いた だ けれ ば 結構 で す 。 こ れ は 一 種 の コロ ンプ ブス の 卵 
で す 。7 章 まで の サン プル ・ プ ログ ラム も か な り 利 用 で きる は ず で す 。 

友人 の プロ グラ ム と 差 を つけ る の も 楽し いも の で すし 、TURBO Pascal は ライ セン 
ス * フ リー、 つ まり TURBO Pascal ( 選 g コ シバ パイ クル も た オデ ジェ グ の トー ブログ ラム は 開発 
元 の Borland International 社 の 許諾 な し に 自由 に 売る こと が で きま す 。 あ な た が 「 こ 
ん な プロ グラ ム が あっ た ら 」 と ひご ろ 思 っ て いる プロ グラ ム は 、 き っ と 他 の ユー ザー も 
欲し い プ ログ ラム で す 。 ひ と つこ こ で が ん ば っ て そん な プロ グラ ム を 開発 し 、 ソ フト ハ 
ウス に 売り 込ん で みる の も お も し ろ い 体験 に な る で し ょ う 。 


な る ほ ご こん な 手 が あ る 
8-1m メ ニュ ー 選 択 

パソ コン の こと が よく わか っ て いな い ユ ー ザ ー 向 け に ソフ ト を 開発 する と き に は 、 ユ ー 
ザー の キー ボー ド 入 力 を 簡単 に する た め メ ニュ ー 方 式 を と る の が 普通 で す 。 番 号 を 付け 
た いく つか の 項目 を 表示 し て 、 そ の 中 か ら 希 望 の を 選ん で 数 字 を キー ボー ド か ら 入 力 
させ る も の が 一 番 簡 単 で す 。 し か し 、 科 単 と いう 意味 は 開発 者 に と っ て で あっ て 、 ユ ー 
ザー に は 面倒 な 方 法 で す 。 そ れ に 見 か けが あま り よ く あ り ま せん 。 

そこ で 利用 し た い の が TURBO Pascal の Ver.6.0 以降 に 強力 な ユー ザー イン タフ ェ ー 
ス 開発 の ツー ル と し て 追加 され た TURBO Vision で す 。 し か し 、 ち ょ っ と 簡単 な メニ ュー 
選択 を 作る の に TURBO Vision を 使う の は スズ メ を 撃つ の に 大 砲 を 使う よう な も の で 
す 。 こ の 節 で は カー ソル 移動 キー で 大 型 の カー ソル が 移動 する プロ グラ ム を 紹介 し ま 
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す 。 こ の プロ グラ ム こ そ 、 ど う 作 れ ば よい の か まっ た く 見 当 が つか な い の に 、 や り 方 を 
一 度 知 っ で し まそ えば な ー ん だ と いい た く な る テク ニッ ク の 代表 で す 。 こ こ で 経 朗 政 チ 
プラ ン な どの カー ソル の よう に 大 き な リ バー スカ ー ソ ル が メニ ュー 選択 時 に カー ソル 移 
動 キ ー で 移動 し 選択 する と いっ た テク ニッ ク を 紹介 し まし ょ う 。 簡単 な 割 に は な か な か 
効果 的 な ユー ザー イン タフ ェ ー ス が 作れ ます 。 

まず 、 表 示 文 字 を リバ ー ス させ る ルー チン を 考え ます 。 表 示 文 字 を リバ ー ス させ る に 
は 、CRT 画面 の 制御 を 行う エスケープ ・ シ ー ケ ンス で 、ESC [7:m と 表 さ れ ま す 。 
TURBO Pascal で 、 エ スケ ー プ ・ シ ー ケ ンス を 使用 する に は 、 次 の よう な 方 法 で や り 
ます 。 エ スケ ー プ コー ド は ASOCII コー ド で 1BH で 表 さ れ ま す 。 こ の コー ド を 定数 定義 
し て お きま す 。 こ うし て お け ば あと は これ に 続く パラ メー タ を 変え る だ け で 、. エスケー 
デ ャ シー ケシ ス を 使用 する こと が で きま す 。 つま り 、 


const 
ESC = ##$1B: 


write(ESC。) [7:m): 


と すれ ば 、 こ れ 以 後 の 表 示 文 字 は リバ ー ス され て 出力 され ます 。 こ の ほか に 本 プロ グ 
ラム で 使用 する エス ケー プ ・ シ ー ケ ンス コー ド は 次 の よう な も の で す 。 
ESC[>51 | カー ソル を 画面 上 に 表示 する モー ド 


カー ソル を 画面 上 に 表示 し な い モ ー ド 
表示 文字 を リバ ー ス に 指示 する 


表示 文字 を 既定 の 属性 に 戻す 


この 他 の エス ケー プ ・ シ ー ケ シス に つい て は 、7-7 の ラン ダム ボッ クス を 参考 に し て 
くだ さい 。 エ スケ ー プ シー ケン ス を 使用 し な いで も まっ た く 同 じ 効 果 を 出せ る 手続 き や 
関数 が TURBO Pascal の Crt ユニ ッ ト に は 用 意 き され て いま す 。 こ こ で は まず 、Dos ユ 
ニッ ト に よる 例 ( リ スト g-1) を 示し 、 そ の 後に エス ケー プシ ー ケ ンス に よる 例 ( リ スト 
8-2) を 示し ます 。 


圏 リス ト 8-1 
: Program LTST8_1: 


: Uses 
Cr 


ESC 

SPACE 

CR 

LF 
MAX_SELECT 


#$1B:{ エ スケ ー プ } 
#$20:{ ス ペー ス } 
#$0d: 和 復帰} 
#$0a: 和 {改行 } 
4:t 選 択 肢 一 1+ 


1 
2 
に 】 
ー 
に が 
6: const 
7 * 
8 
9 
0 
1 


8-7. な る ほど こん な 手 が あ る 169 


12: 

13: type 

14: SeLect_Type = record {表示 用 レコ ー ド } 

15: XPos : integer:{ 表 示 カ ー ソ ル 位 置 } 
31 得 : YPos : integer: 

7 item : string[60] {項目 内 容 } 

0 end : 

19: 

20: var 


21: seLect : array[O..MAX_SELECT] of SeLect_TyYpe: 

アア kekka : integer: 

28? List : Text: 

の Moi WNW の ココ ーー マコ ニニ ーー ビーーーーーーーーー ニ ニー ニー ニー ニン ンー ニー ニー ニー ニニ ーー と MC た a 久 す っ wcHBF3 + 
25: {リバ ー ス 表示 オン } 

26 : procedure On(seLect : SeLect_Type) : 

27: begin 

28: GoToXY(seLect .XPos , seLect.YPos) : 

29: Write(Lst,ESC,) [7:m?,seLect.1tem ): 

30: end: 

3 て トー キー ジー エー キーーー マ イイ ーーー マ ーー つ ャ ミニー ュ ラー テー FE で + 
32: {リバ ー ス 表示 オフ + 

33: procedure Uff(seLect : SeLect_Type) : 

34: begin 

3 GoToXY(seLect .XPos , seLect . YPos) : 

36: Write(Lst,ESC,)[m:,seLect.1tem) : 

37: end: 

38 人 ニー エー ュー エタ ーーー コジ エゴ ゴー コー ニワ トー ニー ピー ラテ マー ドー + 
39: {選択 肢 作成 ・ 表 示 } 

40: procedure Menu_BuiLder: 

41: Var 

42 : 1 : 1ntegerj 

43: 

44: begin 

45: CLxScxx 

46 : for i:=0O to MAX_SELECT do 

47: with seLect[i] do 


48: begin 

49 : YPos :=i+ 10:{1 0 行 目 の 2 7 文字 目 か ら + 

50: XPos := 27: 

51 : item :=〉) どれ を 選び ます か ? No.?+Chr(i+49)+) ): 

52: 0ff(seLect [i] ) : 

に に end 

54: end: e 

55 : ーー ニーーーー ニ ーー ニニ ーーー ニ ーーーーー ニ ーー ニーーー ニ ーー ニー ニー ニー ニーーー ニ ーー ニー ニーーーーーーー ニ ーーーーーー + 


56: {メニ ュー 選択 } 

57: function Get_SeLect : integer: 
58: var 

59: ch : char: 

60: CurPos : integer : 
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62: begin 

63: CurPos := 0: 
64: DOn(seLect[0O] ) : 
65: repeat 


66: ch := ReadKe7: 

に 01 1f ch=SPACE then 

68: begin 

69 : Uff (seLect [CurPos] ) : 

70: CurPos := CurPos + 1: 

0 end: 

72: CurPos := CurPos mod (MAX_SELECT+1 ) : 
知人 Un (seLect [CurPos] ) : 


74: until ch = CR: 
7 8 Get_SeLect := CurPos: 
76: end: 


867 も メ 祭 ゲロ グラ ム )} け 

79: begin 

80: Assign(Lst CON〉) {出力 装置 指定 } 

81 : ReWwrite(Lst) : 

82: Write(Lst,ESC,) [>5h)) :{1 カ ー ソ ル を 隠す +} 
83: Menu_BuiLder : 

84: kekka :='Get_SeLect+1:{ こ こ で ルー プ す る } 
85: GoToXY(27,20): 

86: Write(Lst,) あな た は 》,kekka:1,) 番目 を 選び まし た りう ): 
87: Write(Lst,CR,LF): {復帰 と 改行 } 

88: Write(Lst,ESC,) [m〉) :{ 表 示 文 字 の 回 復 } 

89: Write(Lst,ESC,? [>5L)) :{ カ ー ソ ル を 表示 する } 
90: CrLose(Lst):{ 出 力 装 置 使用 終了 + 

91: end. 


それ ぞ れ の 手続 き の 解説 の 前 に 、 プ ログ ラム の 中 心 と な る 56 行 目 か ら 始ま る 関数 
Get_.Select を 見 て お きま し ょ う 。 こ こ で は リバ ー ス カー ソル が スペ ー ス キー に よっ て 5 
行か ら な る メニ ュー を 順番 に 移動 する こと に し まし た 。 そ の 条件 に 即 し て どの よう に こ 
の 関数 が 動作 する か 考え て み ま す 。 リ スト 8-1 を 見 て くだ さい 。 

CurPos は 現在 メニ ュー の 何 行 目 に カー ソル が ある か を 示す 変数 で す 。 た だ し 、 一 番 
上 の メニ ュー を 0 番目 と し て いま す 。 プ ログ ラム が 走り だ し だ た 段階 で で ぜ は カー ソル は 一 
番 上 に な けれ ば な り ま せん か ら 、 初 期 値 を 62 行 目 で 0 に し て お きま す 。63 行 目 で 最初 
に リバ ー ス 表示 する 項目 を 0 番目 と し て お きま す 。 リ ター ン が 入力 され る まで 、64 一 
73 行 目 の repeat 一 until で ルー プ し ます 。65 行 目 で ReadKey 関数 に より キー ボー ド 
か ら 1 文字 を ch と し て 手 に 入れ ます 。 こ こ で は スペ ー ス キー を メニ ュー 項目 の 移動 用 
の キー に し て いま す が 、 フ ァ ン クシ ョ ン キ ー、DEL キー、 矢 印 キ 一 な どの よう な 特殊 
キー を 使用 する と き に は 注意 が 必要 で す 。PC-9801 用 の ReadKey 関数 は 漢字 の 入出 力 


2 EE 


間 
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が 有効 の 場合 、 つ まり Crt ユニ ッ ト で 定義 され て いる Kanji 変数 が 真 の と き と そ う で 
な いと き で は ReadKey が 返す コー ド が 違っ て きま す 。Kanji が 真 の と き に は 特殊 キー 
が 発生 する コー ド を 直接 返し て くる の で 、 キ ー の 判定 が で きま せん 。 偽 の と き に は ヌル 
文字 (が 0) と 拡張 スキ ャ ンコ ー ド を 返し て きま す 。 こ の よう な や っ か いな こと に は か か 
わら な いこ と が 一 番 で すか ら ユ ー ザ ー に 操作 させ る キー は スペ ー ス 、 タ ブ 、 エ スケ ー プ 
キー な ど を 使用 する の が よい で し ょ う 。 

71 行 目 は CurPos が 0 一 4 の 間 の 数 値 を 順 々 に と る よう に する た め の も の で す 。72 
行 目 で カー ソル が 移動 し た 項目 を リバ ー ス 表示 し ます 。73 行 目 で 押下 キー が 改行 キー 
で あれ ば repeat の ルー プ を 抜け 出し ます 。74 行 目 で カー ソル 位置 を この 関数 の 値 と し 
@3 揚 北 束 9 

以上 の よう な 関数 Get-Select の 処理 内 容 が わか っ て し まえ ば 、 あ と は 簡単 で す 。 リ 
スト 8-1 を 始め に 戻っ て 眺め て ゆき まし ょ う 。6 9 行 目 は 定数 宣言 部 で す 。 こ こ で 
は 主 に ASOTI 制御 コー ド を 定数 と し て 宣言 し て いま す 。11 行 目 か ら 定 義 し て いる 型 、 
Select_Type は メニ ュー の 選択 行 を 作る た め の も の で す 。XPos と YPos は 画面 の 中 で 
テキ スト を 表示 すべ き 座 標 で す 。item は メニ ュー と し て 表示 すべ き 項 目 の 内 容 で す 。 

4 つの 手続 き 、On 、OfEF、Menu_Builder は 簡単 で すか ら 解 説 の 必要 は な いで し ょ う 。 
メイ ンプ ログ ラム は 78- 85 行 の 短い も の で す 。 

79 行 目 で カー ソル を 画面 か ら 隠 し ます 。 こ れ に 対応 し て 84 行 目 を 必ず 入れ て お きま 
す 。80 行 目 で メニ ュー を 画面 に 表示 し 、81 行 目 で 何 番 目 の 項 目 を 選ん だ か を えま す 。 
それ を 表示 し た 後に 、82 行 目 で 改行 と 復帰 を 行い ます 。 こ れ が な いと プロ グラ ム か ら 
抜け た と き MS-DOS の 表示 が ずれ て 見 苦し く な り ま す 。 

今度 は MS-DOS の エス ケー プシ ー ケ ンス を 使っ て 同じ プロ グラ ム を 作り ます 。 リス 
ト 8-1B を 見 て くだ さい 。 内 部 は ほとん ど リ スト 8-1 と 同じ で す 。 


圏 リス ト 8-1B 
1: program LIST8_1b: 
の 
3: Uses 
4: Cyt : 
5: 
6: const 
前 SPACE = #$20: て {スペ ー ス } 
1 = #$0d:{ 改 行 } 
9: MAX_SELECT = 4 選択 肢 一 1} 
10: > 
11: type ミ 
12: SeLect_Type = record {表示 用 レコ ー ド } 
18: XPos : integerit 表 示 カ ー ソ ル 位 置 } 
14 : YPos : integer: 
15 : item : string[60] :{ 項 目 内 容 } 


16 : end: 
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18: var 
19: seLect : array[O..MAX_SELECT] of SeLect_Type: 
20 : kekka : integer : 


22: {リバ ー ス 表示 オン }+ 

23: procedure On(seLect : SeLect_Type) : 
24: begin 

25 : TextReverse(1) : 

26: GoToXY(seLect .XPos , seLect . YPos) : 
レイ 人 Write(seLect.item ) 

28: end: 


30: {リバ ー ス 表示 オフ } 

31: procedure OUff(seLect :、SeLect_Type) : 
32: begin 

33。 TextReverse(0) 

34 : GoToXY(seLect .XPos , seLect. YPos) : 
35 : Write(seLect .1 も tem) 

36: end: 


38: {選択 肢 作 成 ・ 表 示 } 

39: procedure Menu_BuiLder : 
40: var 

41: 1 : integer: 


43: begin 

44 : CLrScr: 

45: for 1:=O to MAX_SELECT do 
46 : with seLect[i] do 


47: begin 

48: YPos := ュ + ォ 10:{1 0 行 目 の 2 7 文字 目 か ら + 

49 : XPos := 27: 

50: item :=〉 どれ を 選び ます か ? No.〉+Chr(i+49)+) ラ : 
9 も) 0ff(seLect [ ュ ] ) 

525 end 

53: end: 

54 : ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー ニ ーーーーーーーーーーーーーーーーーーーー ま 
55: {メニ ュー 選択 } 

56: function Get_SeLect : integer: 

必 。 飛 

58: ch ・ char: 

59: CurPos : integer: 

60: 

61: begin 


62: CurPos := 0: 

63: On(seLect[O] ) : 
64: repeat 

65: ch := ReadKey: 


ーー ニー 
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66: 
67 : 
68: 


1f ch=SPACE then 


begin 
Dff(seLect [CurPos] ) : 
CurPos := CurPos + 1 
end : 


CurPos := CurPos mod (MAX_SELECT+1 ) : 
On (seLect [CurPos] ) : 

untiL. ch = CR: 

Get_SeLect := CurPos 


: end: 


: 4 メ イン プログラム} 
: begin 


TextCursor(NoDispCursor) :t カ ー ソ ル を 隠す +} 
Menu_BuiLder: 

kekka := Get_SeLect+1:{ こ こ で ルー ププ する} 
GoToXY(27,20): 

Write() あな た は >〉,kekka:1,? 番目 を 選び まし た うり ): 
TextCursor(DispCursor) 人 {カー ソル を 表示 する } 


: end. 


も うち ょ っ と 手 を 加え て 


6 一 2 ョ メニュー ボッ クス 

8-1 で メニ ュー を リバ ー ス 表示 する プロ グラ ム を 作り まし た が 、 ち ょ っ と これ だ け で 
は さび し い 気 が し ます 。 

そこ で 、 メ ニュ ー 用 の 科 単 な 枠 を 作っ て み ま し ょ う 。 こ こ で 作る メニ ュー 用 の 欄 、 ボ ッ 


クス は 7-7 の ラン ダム 画面 の 作り 方 を 参考 に し まし た 。 こ ん な 簡単 な 手続 き で も 使い 方 
ひと つ で メニ ュー 画面 を ぐっ と 引き 立た せる こと が で きる の で す 。 


圏 リス ト 8-2 
Program LTST8_2: 


Uses Crt: 


{座標 (x, y) に 1 文字 書く +} 0 
Procedure PutChar(x,,code :byte) : 
begin 
GoToXY(x,) : 
Write(Chr(code) ) 
end : 


: (メニ ュー 用 の 箱 を 描く } 
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13: procedure MenuBox(x1,71 ,x2,y2:byte) : 
14: Yar 

15: a : byte: 

16 : イジ れ ro 


人 

18: begin 

19: kanj1 := FALSE: {グラ フィ ッ ク 文 字 表 示 オン } 
20 : CLrScr : 

科 和 な 

ピル 1f (x1$<$2) or (x2$>$80) or (y1$<$2) or (y2$>$24) then 
23: Write() メ ニュ ー ボ ックス の 指定 位置 が ?, 
24 : 画面 境界 の 外 に 出 て いま す 。 う 〉 
2 eLse 

26 : begin 

3 for a:= x1 to x2 do 

28: begin 

29 : PutChar(a,y1 ,$95) : 

30 : PutChar(a,y2,$95) : 

3: end : 

に ジレ 伯 

33: for a:= 1 to y2 do 

34 : begin 

85: PutChar(x1 ,a,$96) : 

36 : PutChar(x2.,a,$96) : 

7 end : 

38 : 

39: PutChar(x1 ,y1,$98) 

40 : PutChar(x1 ,y2,$9A) : 

41 : PutChar(x2,71,$99) : 

42: PutChar(x2,72,$9B) : 

43: end : 

44 : 

45: kan]1 := TRUE: {グラ フィ ッ ク 文 字 表 示 オ フ } 
46 : end : 

47 : 

48: {メイ ンプ ログ ラム } 

49: begin 

50 : MenuBox (10,3,70,20) : 

51: end. 


リス ト 8&-2 を 見 て くだ さい 。6 行 目 の 手 続き PutChar は 文字 を 指定 され た 画面 上 の 場 
所 (xy) に 表示 する も の で す 。 メ ニュ ー 用 の 梓 を 描く 本 体 は 13 行 目 の 手続 き MenuBox 
で す 。 枯 の 左上 と 右 下 の 対 角 に な る 角 の 座標 を 指定 する と 、 グ ラフ ィ ッ ク 文 字 で 枠 を 描 
きま す 。19 行 目 で これ か ら 表 示す る 文字 が グラ フィ ッ ク 文 字 で ある こと を 指定 し ます 。 
これ を 忘れ る と 、 画 面 に と ん で も な い 漢 字 が 表示 され ます 。 

22 行 目 で メニ ュー 枠 が 画面 内 に 納まる か どう か を 判定 し 、 は み 出 る よう で あれ ば 指 
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定 を 変更 する よう に メッ セー ジ を 出し ます 。 こ こ で は は み 出 る と き に は いき な り プ ログ 
ラム が 終了 し て し まい ます 。 画 面 内 に 納まる 設定 が えら れる ま て 入力 を 要求 する よう に 
し て も よかっ た の で す が 、 こ こ で は あっ さり と 作っ て あり ます 。 

27 一 43 行 は 7-7 の ラン ダム 画面 と 同じ で すか ら 、 文 字 の コー ド な ど は そちら を 参考 
に し て くだ さい 。45 行 目 で 再び 画面 表示 を 漢字 に 戻し ます 。 こ れ を 忘れ る と 今度 は 漢 
字 を 表示 し よう と し た と き に 、 と ん で も な い 文 字 が 飛び 出し ます 。 メ イン プロ グラ ム は 
50 行 目 の 1 行 だ け で す 。(10,3) と (70,20) を 対角線 上 の 角 に し て 枠 を 画面 に 描き ます 。 


BASIC に で き て Pascal に 
8-3mPRINTUSING 


TURBO Pascal に は 実数 の 数 値 を 出力 する と き に 、 小 数 点 以下 の 桁 数 を 指定 で きる 
便利 な 機能 が あり ます 。 た と えば 、 


Write(1234 .5678:6:3) : 


2 HH) 1234.567 の よう に な り ま す 』n じ か し 。 ビ ジネス 用 に 使い た ぃ ぬ 3 
桁 ご ど と に カン マ を 打つ 機能 は あり ませ ん 。 これが BASIO な ら 


PRINTUSTNG(  ## 提 ,### . 昔 ##) ,1234 .5678) 


VM4D 1.234.567 の よう に な り ま す 。 こ の 程度 で BASICO に いばら ちら れ だ た の で は 、 
TURBO Pascal も 情け な い 存在 で す 。 そ こ で 、TURBO Pascal で PRINTUSING と 同 
機能 を 持つ 手続 き を 開発 し て み ま し ょ う 。 リ スト 8-3 を 見 て くだ さい 。 


画 リ スト 8-3 


: Program LTST8_3: 


: Uses Crt: 


M 

2 

3 

4: 

5: type 
6 Str80 = string[80] : 
7 

8 


: Var 
に number  : reaL: 
10: format  : Str80: 
居 : 
12: procedure PrintUsing (format : Str80: number : real ): 
13: const 
14: COMMA = うう) 
が は INT me 全う > 
Ox MTNUS = 2ー ス 5 
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18: 
19: 
20: 
の 
ウン 
28。 
24 : 
レ ィ < 
26 : 
の 人 
28 : 
29 : 
に 9 
きく 
2: 
38・ 
34 : 
35 : 
36 : 
87 
38 : 
39 : 
40: 
41: 
42 : 
43: 
44 : 
45 : 
46: 
47 : 
48: 
49: 
50 : 
人: 
52 : 
53: 
54 : 
55: 
56.: 
5Y: 
58: 
59: 
60: 
61 : 
62: 
88 : 
64: 
65: 
66 : 


Ya 
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format_Len , 

int_Len , 

degit_num , 

Po1nt_DoS, 

入 計 ) : 1nteger : 
comma_Ye8, 

Po1nt_Yes, 

minus_YeSs : booLean : 
Print_out , 
integer_string : Str80: 


begin 


minus_yeSs := number $<$ 0: 

comma_yes := Pos (COMMA ,format)$>$0 : 
Point_yes := Pos (POINT,format)$>$0 : 
number := abs(number) : 

deg1t_num := 0: 

format_Len:= Length(format) : 

if point_yes then て 小数点} 


begin 
Point_pos := Pos(POUINT ,format) : 
deg1t_num := format_Len-po1nt_DoS: 
end : 


Str (number : 0 : deg1t_num ,pr1nt_out) : 
if comma_yes then {3 桁 コ ンマ + 
begin 
]:=0: 
integer_String:=CopY(print_out ,1 , 
Length(print_out) -degit_num) : 
int_Len:=Length(integer_str1ng) : 
1f point_yes も then 
int_Len :=int_Len-1: 
for 1i:=int_Len downto 2 do 
begin 
]:=1: 
if ] mod 3 =O then 
Tnsert(CUMMA ,print_out 1) 
end 
end : 


if minus_yes then ]{ 負 の 数 } 
Pr1nt_out : =MTNUS+pDr1nt_out : 
Write(print_out:format_Len+1 ) 


end : 


begin 


CLrScr: 
Write(〉 形 2 
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67: ReadLn ( format ): 

68: Write(: 数 値 デ ー タ : 2 う : 

69: ReadLn(number) : 

70: PrintUsing ( format , number ): 
とき: WriteLn 

72: end. 


12 行 目 か ら 始 まる 手続 き PrintUsing が この サン プル プロ グラ ム の 中 心 で す 。 引 数 の 
format は 邦 ... か が の 表示 形式 、number は 表示 し た い 実 数 で す 。 手 続き の 本 体 は 30 行 
目 か ら 始ま り ま す 。31 、2 、3 行 目 で 表示 すべ き 形 式 を 論理 変数 に 入れ て お きま す 。 た 
と えば 、comma_yes と いう 論理 変数 は 、 カ ンマ イエ ス と いう 変数 名 の と お り 3 桁 ご と 
の カン マ を 指定 し た と き で す 。 

37 一 41 行 目 で 小数 点 が 入っ て いる と き の 処 理 を 行い ます 。42 行 目 に ある 関数 、Str 
の 引数 が ちょ っ と 見 な れ な い 形 で す が 、 こ の よう な 使い 方 も 可能 な の で す 。 書 式 は 、 


Str(r:n:m,8t) : 


で 、 実 数 r を 幅 m の フィ ー ル ド に 小数 点 以下 m 桁 の 形 に し て 、 文 字 列 ss に 入れ る と い 
うこ と で す 。42 行 目 で は n が 0 に な っ て いま す が 、 フ ィ ー ル ド 長 が 0 の と き に は 小数 
点 を 含む r の 文字 列 と し て の 長 さ が 仮定 され ます 。 こ の こと は マニ ュ ア ル に は 書い て あ 
り ませ ん 。 実験 的 に 見 つけ まし た 。 

43 一 56 行 の カン マ の 処理 は も う 少 し 複雑 で す 。・ 46 行 目 で は 小数 点 を 含む 整数 の 部 分 
を integer_-string に 入れ ます 。51 一 55 行 で 下 か ら 3 桁 ず つ に カン マ を 挿入 し ます 。 最 
後に 59 行 目 で マイ ナス 記号 を 負 の 数 に 対し て は 付加 し ます 。60 行 目 で は 文字 列 出力 字 
の 表示 形式 の 指定 を 使っ て いま す 。 文字 列 に 対す る 指定 は 、 た と えば 、 


Write(?ABCD' :6) : 


と ま 机 人 \、 ABCD の よう に 表示 され ます 。 こ こ で は 表示 に 余裕 を 見 込ん で 1 文字 
だ け 増 や し て あり ます 。 も し 、 結 果 を 印刷 し た い の で あれ ば Write(Lst,.……) の よう に 、 
出力 装置 と し て PRN 、 つ まり 印刷 装置 を 指定 し ます 。 

64 一 72 行 の メイ ンプ ログ ラム の 部 分 は も う 説 明 し な く て も わか る で し ょ う 。 こ こ で 
開発 し た 手続 き PrintUsing を ライ ブラ リ と し て 持っ て いれ ば 、BASIC と まっ た く 同 じ 
機能 が 実現 で きま す 。 こ れ を さら に 改良 する と すれ ば 、 壮 1.234 と し た り *xx1,234.00 の 
よう な 出力 が で きる よう に する こと で す 。 

いずれ に せよ 、 プ ロ の タッ チ の ある ソフ ト 開 発 に は 文字 列 の 操作 も 大 切 で す 。 

TURBO Pascal に は リス ト 8-3 で 使用 し た も の 以外 に 、 文 字 列 用 の 標準 関数 と 手続 き 
が 用 意 さ きれ て いま す 。 そ れ を 活用 で きる よう に も う 一 度 マ ニュ アル の 文字 列 の 部 分 を 読 
ん で みる と 、 お も し ろ い プロ グラ ム を 作る た め の ア イデ ア が きっ と えら れる で し ょ う 。 


ポイ ンタ を 使い こなす 


メモ リ の 壁 を 破る 


Pascal を 勉強 し て いて 、 初 心 者 が 一 番 戸惑う の は ポイ ンタ で す 。 慣 れ て し まえ ば ポ 
イン タ は と て も 便利 で 強力 な Pascal の 概念 な の で す が 、 そ れ が 理解 で き な い ば か り に 
いつ まで た っ て も BASIO の 焼き 直し の よう な Pascal プロ グラ ム を 書い て いる 羽 目 に 
な っ て いる ひと が 意外 と 多い の で は な いで し ょ うか 。Pascal の 初級 と 中 級 プ ログ ラマ 
の 違い は 、 い か に 上 手 に ポイ ンタ を 利用 する か で す 。 

むろ ん 、 フ ァイル の 取り 扱い も 結構 むず か し いも の で す が 、 こ こま で の トレ ー ニ ン 
グ に よっ て ファ イル の 取り 扱い は 十分 に 理解 で きた と 思い ます 。 そ こ で 、 こ の 章 で は 
Pascal 理解 の も う ひ と つの 「 壁 」 で ある ポイ ンタ 、 つ まり 動 的 変数 に つい て し っ か り 
トレ ー ニ ング し まし ょ う 。 こ れ さ え マ スタ ー す れ ば プロ グラ ミン グ に 大 き な 幅 が で き 、 
Pascal の 持つ すばらし い 機 能 を フル に 発揮 きせ る こと が で きる は ず で す 。 

た だ 、 ポ イン タ が わか っ た と いう だ け で は 余り 利用 価値 の ある プロ グラ ム は 作れ ませ 
ん 。 そ こ で 、 ポ イン タク の 応用 問題 と し て TURBO Pascal の メモ リ の 壁 と ちい える デー 
タ に 対す る 64K バイ ト の 制限 を 破る 大 次 元 行列 を 扱う プロ グラ ム を 開発 し て み ま す 。 


まず は 復習 か ら 
9-1m 静 的 変数 vs 動 的 変数 

本 題 に 入る 前 に 、 静 的 変数 と 動 的 変数 に つい て 復習 し て お きま し ょ う 。 動 的 変数 に つ 
いて は 、 こ の PUG ブ ックス シリ ー ズ の 「 TURBO Pascal ト レー ニン グマ ニュ アル 」 の 
第 11 章 を あら か じ め 読 ん で お く と 、 ず っ と 理解 が 早く な り ま す 。Pascal の 変数 に は 静 
的 変数 (Static Variables) と 動 的 変数 (Dynamic Variables) の 2 種類 が あり ます 。 

静 的 変数 は プロ グラ ム で 一 度 宣言 きれ て し まえ ば 、 そ の た め に 割り 当て られ た メモ リ 
の バイ ト 数 が プロ グラ ム 実 行 中 に 変わ る こと の な い 変 数 で す 。 整 数 は 2 、 実 数 は 6、n 
字 の スト リン グ の 文字 列 は n 十 1 、Byte 型 な ら 1 バ イト な ど と な り ま す 。 こ の バイ ト 
長 は TURBO Pascal の マニ ュ ア ル に 明記 され て いま す 。 

静 的 変数 は コン パイ ル 時 に メモ リ 上 に 確保 きれ ます 。 も っ と も 、 正 確 に は グロ ー バ ル 
変数 と 型 付き 定数 が コン パイ ル 時 に 確保 ま ミ れ ます 。 関 数 ・ 手 続き 内 で 宣言 さき まれ る ロー カ 
ル な 配列 は その 関数 ・ 手 続き が 実行 され る と き に の み ス タッ ク 上 に 確保 さ ミ れ ます 。 し た 
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が っ て 、 ロ ー カ ル に し か 使わ な い 配列 を グロ ー バ ル に 宣言 する の は 、 メ モリ を 消費 する 
の で 感心 し ませ ん 。 

さて 、 こ れ に 対し て 動 的 変数 は コン パイ ル 時 に 定義 され ま す が 、 プ ログ ラム の 実行 時 
に し か メモ リ が 割り 当て られ ませ ん 。 こ の 動 的 変数 が メモ リ 上 の どこ に 割り 当て られ た 
の か を 示す た め に 設け られ て いる の が Pascal の ポイ ンタ で す 。 ポイ ンタ 自体 は コン パ 
イル 時 に 確保 きれ 、 こ れ で 動 的 変数 の 第 1 バイ ト を 指す よう に し て いま す 。 

ここ まで 読ん で くる と 、 同 じ コ ン パ イル 時 に 確保 きれ る の な ら 、 ロ ー カ ル 変 数 で 定義 
する 静 的 変数 と 動 的 変数 は 違い が な い の で は な いか と いう 気 が す る で し ょ う 。 つ まり 、 
どちら も デー タ セ グ メ ント 上 の メモ リ を 消費 し な い の だ か ら 、 わ か り に くい 動 的 変数 な 
ど 使 わな いで も 十分 に 大 き な 次 元 の 変数 を 関数 ・ 手 続き 内 で 宣言 すれ ば メモ リ が パン ク 
せ ず に プロ グラ ム が 実行 で きそう で す 。 

何故 この よう な わか り に くい ポイ ンタ で 指す 動 的 変数 が 考え られ た の で し ょ うか 。 そ 
の 理由 は 、 プ ログ ラム 作成 時 に デー タ 数 が あら か じ め 不 明 な 場合 の 対策 が 必要 だ か ら で 
す 。 た と える ば 、 住 所 録 を 作る と き を 考え て み ま し ょ う 。 友 人 の 数 が ある 程度 決っ て いる 
人 な ら 、 何 ペー ジ 位 の 住所 録 を 買っ て き て それ に 記入 すれ ば よい で し ょ う 。 し か し 、 何 
人 記入 する か 未定 の と き に は 、 ペ ー ジ 数 の 少な い 住所 録 で は パン ク す る 恐れ が あり ます 
し 、 多 いも の で は 無駄 を 生じ し そう で す 。 こ ん な と き バ イン ダ 式 の 住所 録 が あれ ば 解決 し 
ます 。 こ れ と 同じ 考え 方 が 動 的 変数 な の で す 。 

静 的 変数 で は 最大 の デー タ 量 を 了 予測 し て 、 安 全 を 見 越し て 配列 な ど を 大 きめ に 取っ て 
お か ね ば な り ま せん 。 た と える ば 、 住 所 録 の アー タ を レコ ー ド 型 に し た ら 、 最 大 何人 分 用 
意 す る の か と な る と 、 ど うし て も 五 百人 、 千 人 分 の 配列 に し て お か な いと 心配 で す 。 そ 
の 大 き な 配 列 を プロ グラ ム の そこ か し こ で 操作 する と な る と 、 グ ロー バル 変数 に せ ざ る 
を えま せん 。 そ うす る と 、 コ ン パ イル の 段階 で メモ リ 不 足 に な っ て し まい ます 。 

それ な ら 関 数 や 手続 き の 中 で 使用 の た びに ロー カル 変数 と し て 定義 し て お け ば よき 
そう で す が 、 こ ん ど は に 定義 し て いる 関数 や 手続 き が 呼ば ん た と き に スタ ッ ク ・ オ ー バ ー 
フロ ー を 起こ し て 、 プ ログ ラム が 強制 終了 し て し まい ます 。 つ まり 、 想 定 し うる 最大 の 
デー タ 量 に メモ リ を 確保 する と いう 方 式 が まず い の で す 。 

動 的 変数 は プロ グラ ム 実 行 時 に ヒー プ に 確保 きれ ます 。16 ビッ ト の パソ コン で は 、 
プロ グラ ム は セグ メン ト と 呼ば れる 64K バイ ト の メモ リ 領 域 を 単位 に 構成 され ます 
TURBO Pascal で は コー ド セ グ メン ト 、 デ ー タ セグ メン ト 、 ス タッ クセ グ メ ント の 3 
つ を 使用 し ます 。 こ の 3 つ を 全 メ モリ 量 か ら 引 いた 残り が ヒー プ 領 域 に な り ま す 。 こ の 
領域 を すべ て 使用 すれ ば 、 か な り 大 き な デ ー タ が 保持 で きそう で す 。 

TURBO Pascal で は 、 変 数 領域 が 64K バイ ト に 制限 さき れ て いる 関係 上 、 大 き な 配 列 
を 取 ろ うと し て も 65,520 バイ ト 、 約 64K バイ ト 以 上 取る こと が で きま せん 。 た と えば 、 
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a : array[O..100000] of integer: 


と いう よう に する と 、 コ ン パ イル 時 に エラ ー が 出 て き て し まい ます 。 

そこ で 、 ポ イン タ 型 変数 に より ヒー プ 領 域 を 使っ て 64K バイ ト 以 上 の 大 次 元 配列 を 
と る 方 法 を 紹介 し ます 。 い き な り 大 次 元 配列 の 具体 的 な プロ グラ ム を 提示 し て も わか り 
に くい と 思い ます の で 、 最 初 に ポイ ンタ の 復習 を か ね た や さ し い 例題 で 説明 し な が ら 先 
Po TANeS 当 人 枯 の に 抽 の 記 っ 所 


初心 に 戻っ て 
0 一 2m ポ イン タ の 復習 
簡単 な ポイ ンタ 型 変数 を 使っ た 例 を リス ト 9-1 に 示し ます 。 


固 リ スト 9-1 


1: program LIST9_1: 
223 

3: Var 

4: a:~1nteger : 
5: 

6: begin 

7 New(a) : 

8: a~:=1234 : 

9: writeLn(a~): 
10: Dispose(a) : 
11: end. 


4 行 目 で a を 整数 型 の 動 的 変数 と し て 定義 し て いま す 。 その と き に は 約束 と し て integer 
で は な く ^integer と 宣言 し ます 。 す ぐ 後 ろ の 説明 と も 関連 し ます が 、 変 数 型 の 前 に つけ 
られ た ^ 印 は 、 そ の 変数 型 の ポイ ンタ 型 で ある こと を 示し ます 。 そ し て 、9 行 目 で 、 動 
的 変数 a^ に 1234 の 整数 を 代入 し 、10 行 目 で それ を 呼び 出し て 表示 させ て いま す 。 

この 中 で ^ 印 (ハッ ト 、 キ ャ ラッ ト 、 サ ー カ ム フ レ ックス な ど と 読み ます ) は ポイ ンタ 
型 変数 を 意味 し ます 。a と a~ で は 意味 が 次 の よう に 違い ます 。 

a 2 バイ ト 長 の 整数 の 第 1 バイ ト を 指す (ポイ ント する ) 。 
a~ a で 指 さ れ た 整数 の 値 。 


し た が っ て 、9 行 目 の 意味 は こう な り ま す 。 


=ー1234: a の 指す アド レス か ら 始 まる 2 バイ ト に 整数 値 と し て 1234 を 格納 する 。 


手続 き New(a) に より 整数 a^ 用 に 2 バイ ト を ヒー プ 領 域 に 確保 し 、 そ の 第 1 バイ ト 
の アド レス を ポイ ンダ タ 変 数 as に 入れ ます 。 そ し て 、Dispose(a) に よっ て a" に 使用 され 
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て いる ヒー プ の 使用 を 終了 し ます 。 つ まり 、 動 的 変数 は 使用 の と きだ け メ モリ に 確保 き 
れる の で す 。 こ の プロ グラ ム で ヒー プ に どの よう な 変化 が 発生 する の か 図 9-1 に 示し ま 
す 。 図 の 中 の HeapPtr は TURBO Pascal の シス テム ・ レ ベル 変数 で 、 ヒ ー プ の 最上 位 
アド レス で す 。 ま た 、MemAvail は ヒー プ 上 の 空き バイ ト 数 を 返す TURBO Pascal の 
関数 で す 。 


上 位 
Mem Avail 
Pe 1234 ューー HeapPtr 
ポイ ント し て いる 
a アド レス 
下位 


圏 図 9.1 ポイ ンタ の 概念 図 


これ な ら 使 え そ う 
9 一 3m1 次 元 配列 

それ で は 配列 型 は どう すれ ば よい の で し ょ うか 。 

ポイ ンタ 型 変数 を 使っ て 1 次 元 配列 を 取っ た 例 が り リスト 9-2 で す 。 こ こ で は b を 動 的 
変数 の 配列 と し て 、4 行 目 と 7 行 目 で 定義 し て いま す 。 ま ず 、 整 数 型 の 変数 と し て 100 
個 の 配列 を 定義 し 、 そ れ の ポイ ンタ 型 で ある 配列 と し て b を 定義 し て いま す 。 こ れ に よ 
り 、b^ 還 は 整数 型 配列 bj に より 指 さ れる 動 的 変数 に な り ま す 。 

12 行 目 で 、100 個 の 整数 要素 を ヒー プ 上 に 確保 し 、13 行 目 で 1 か ら 100 まで の 整数 
を 代入 し 、15 行 目 で 再び それ を 呼び 出し て 表示 させ て いま す 。 こ れ を 見 る と 、 動 的 変 
数 に 値 を 代入 し た り 、 動 的 変数 か ら 値 を 持っ て くる に は 、b~ 還 と いう 表現 に よっ て 行 
われ て いる こと が わか る で し ょ う 。 

さら に これ を 拡張 し 、64K バイ ト の 1 次 元 配列 を ヒー プ 上 に 確保 し て み ま し ょ う 。 正 
確 に は 64K バイ ト と は 65,536 バイ ト の こと で す が 、TURBO Pascal で は 配列 と し て 
取れ る 最大 値 は 65.520 バイ ト ま で で す 。 し た が っ て 、 も し も 整数 型 の 配列 を 定義 する 
の な ら こ の 1/2 まで に な り ま す 。 


+ー 
< 
トウ 
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圏 リ スト 9-2 
: program List9_2: 


tYpe 
ArrayType=array [O . .99] of integer: 


: Var 
b : ^ArrayTYyDe: 
1 : 1nteger: 


Co の の 品 必 の OO は 


10: begin 

昌信 > New(b) : 

人 for i:=1 to 100 do 
935 b~ [ ュ ] := ュ : 

14: for i:=1 to 100 do 
15: WS も et ま 導 に 5 
16: Dispose(b) : 


と ころ で 、TURBO Pascal に は 次 の よう な 定義 済み の 整数 型 が 用 意 さ きれ て いま す 。 


型 範囲 形式 

shortint -128 - 127a 符号 付き 8 ビッ ト 
integer -32678 - 32767 符号 付き 16 ビッ ト 
longint -2147483648 - -2147483647 符号 付き 32 ビッ ト 
byte 改 。 -. 285 符号 な し 8 ピッ ト 
word 0 - 65535 符号 な し 16 ビッ ト 


0 - 65535 の 添字 で 配列 を 指す に は 、16 ビッ ト で 符号 な し の 整数 表現 が 必要 で す 。 
TURBO Pascal で は 、 添 字 に 一 番 よ く 使わ れる integer 型 の 整数 は 符号 付き で 一 32768 
ー 32767 まで し か 表現 で き な い の で 注意 が 必要 で す 。 整 数 の 桁 あ ふれ は チェ ッ ク さ れ 
ませ ん か ら 、32767 か ら 1 越え る と 、 今 度 は 一 32678 と な っ て な か な か 見 つか ら な い 
や っ か いな バグ の も と に な り が ち で す 。 符号 な し の 整数 表現 は ワー ド (word) 型 で 、0 
ー 65536 まで 指す こと が で きま す 。 そ こ で ここ で は 配列 の 添字 と し て word 型 を 利用 す 
者 避 と 代表 人 す 。 

その 結果 作っ た プロ グラ ム が リス ト 9.3 で す 。 こ の の プロ グラ ム で は 最大 限 の バイ ト 
数 の 配列 を 宣言 し て いま す 。8 行 目 で 配列 e の 添字 と し て 使う べき i を word 型 で 宣言 
し て いる こと に 注意 し て くだ さい 。 


圏 リス ト 9-3 
Program LTST9_3: 


ArrayType=array [0 . .65520] of byte: 


直る 
4 
3: type 
4 
5 
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6: var 

を @ :~ ArrayTYDe : 

8: 1 : WOrd : 

9: 

10: begin 

3 

2 New(@) : 

18: 

14 : write1n(?Wait a minite.〉) : 
15: 

16: for 1 :=O to 65520 do 

下記 if i=50000 then 

18: e~ [1] :=3 

9 eLse 

20 : @~ [1] :=1: 

2 よ 

2 の WriteLn(^g^g~g,'e~[50000]=) ,e^ [50000] ) : 
28。 Write(?e^~[50001]=) ,e^ [50001] ) 
24 : 

25 : Dispose(e) : 

26 : 

27: end. 


プロ グラ ム は し ご く 科 単 で す 。16 行 目 か ら i を 1 か ら 65520 まで 増加 し 、 も し ji が 
50000 の と き に は 3 を 代入 し 、 そ れ 以 外 の 時 は 1 を 代入 し て いま す 。 代入 が 終わ っ た 
ら i が 50000 の と き と 50001 の と き の 数 値 を 表示 させ ます 。 こ の プロ グラ ム を 実行 する 
と プ ブザー を 3 回 鳴動 きせ て か ら 、3 と 1 が 表示 され ます 。 こ の こと か ら 、e^[50000] と 
e~[50001| に アク セス で きる こと が 確認 で きま す 。 


ぐん と ステ ッ プ アッ プ 
9 一 4m2 次 元 配列 

上 の 例 で 1 次 元 配列 、 つ まり ベク トル は 作れ まし た が 、 マ トリ ックス で ある 2 次 元 行 
列 を 作る の は どう や っ た ら よ いで し ょ うか 。TURBO Pascal の 配列 の 制限 内 に 入る は 
ず の 255 行 x 255 列 の 配列 を 定義 むす る 下 の よ うな プロ グラ ム を コン パイ ル し て みて く 
だ きい 。 


Program array\_test: 
var 
a : array[O..254,0..254] of byte: 
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その 結果 得 ら れる EXE ファ イル は 1312 バイ ト で す 。 こ れ は var で 配列 を 宣言 し な 
いと き 、 つ まり begin と end だ け で 何 も し な ぃ い プ ログ ラム の コン パイ ル 結 果 と 同じ に 
な り ま す 。TURBO Pascal は 賢い (?) の で 、 使 用 され な い 変 数 で ある 配列 a の た め の 
メモ リ 領 域 は 確保 ミ きれ な い の で す 。 と ころ が 、 


program array\_test: 


Yar 

a : array[O..254,0..254] of byte: 
begin 

a[1,1] := 0: 
end . 


の よう に プロ グラ ム 内 部 で 何 か を させ よう と する と コン パイ ル 段 階 で エラ ー が 出 ます 。 
配列 a は グロ ー バ ル 変 数 で すか ら デ ー タ セグ メン ト 上 に 確保 きれ ます が 、 そ こ に は 収 
容 し きれ な いか ら で す 。 

つま り 、 普 通 に 宣言 し た の で は 2 次 元 配列 は せい ぜ い integer 型 で も 100 行 X 100 列 
程度 し か つく れ ま せん 。 そ こ で ポイ ンダ タ 変 数 を 利用 し て メモ リ の 許す か ぎり 大 き な 配 列 
を 確保 する テク ニッ ク を 紹介 し ます 。 


圏 リス ト 9-4 


1: program LTST9_4: 

紗 

3: type 

四 ArrayType=array [0 . .1000] of byte: 

5: ArrayPo1nter =^~ArrayTYDe: 

6: 

ん ら 、 委員 

8 a :array[O..1000] of ArrayPointer : 

に ュ 1,] : 1nteger: 

10: 

11: begin 

0 WriteLn: 

13: WriteLn(?Availab1e Memory (before) = ',Memava11) : 
14 : WriteLni 

15: WriteLn(〉///// ALLocating heap space./////?): 
っ for +:=O to 400 do 

巡 : New(a[i] ) : 

18: WriteLn : 

19: WriteLn(?Avai1ab1e Memory (after)= ' ,Memavai1 ) : 
20 : WriteLn : 

> WriteLn(?///// Making unitary Matrix.///// )): 
フタ > for 1:=O to 400 do 

23: for ]:=O0 to 400 do 

24 : begin 

25: if =] then a[i] ~[]] :=1 


26 : eLse 
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シィ a[i] 日 ] :=0: 

28: end : 

29: 

0 WriteLn(?///// ReLeasing heap space. /////?): 
8 も : 

に を for 1 :=O to 400 do 

33: Dispose(a[i] ) : 

34 : WriteLn : 

35 : WriteLn(?Avai1ab1e Memory (fina1)= ',Memavai1) : 
36 : 

37: end. 


リス ト 9-4 を 見 て くだ さい 。 

ここ で は 例 と し て 400 行 X 400 列 三 16 万 要素 の 2 次 元 バ イト 配列 を 作っ て いま す 。3 
行 目 の type 宣言 部 で 、 ま ず ArrayType と し て 1000 要素 の 1 次 元 バ イト 配列 を 用 意 し 
て お きま す 。 こ の 配列 を さら に 1000 個 作 れる よう に し て お け ば 、「 理 論 的 」 に は 1000 
行 X 1000 列 の 2 次 元 バ イト 配列 が ヒー プ 上 に 作れ る は ず で す 。 そ の た め の 準 備 が 5 行 
目 で 行っ て いる ArrayPointer を ArrayType の 配列 と し て いる と ころ で す 。 

この 宣言 は 8 行 目 の 配 列 a を ArrayPointer の 配列 と し て 宣言 し て いる と ころ と 連動 
し て いま す 。 こ れ で 1000 個 の 要素 の ある 配列 を 1000 個 定義 し た こと に な り ま す 。 そ 
れ を 9 行 目 の integer 型 の i と j で 指す よう に し ます 。 こ こ で は 添字 は 最大 で 1000 まで 
で す の で 整数 型 で か まい ませ ん 。 

具体 的 に どう し て これ で 2 次 元 配列 に な る の か は リス ト の 先 を 見 て 行く の が 早い よ 
う で す 。13 行 目 で ヒー プ 上 で 使用 可能 な メモ リ 量 を 表示 し ます 。16 行 目 で まず alil を 
400 個 ヒ ー プ 上 に New に より 確保 しま す 。 た だ し 、ali は 8 行 目 で 定義 し た 変数 で すか 
ら 、400 バイ ト が 確保 きれ る の で は な く 、aiil1 個 に つき 400 バイ ト が 確保 され 、16 行 
目 で 400 X 400 = 16 万 バイ ト が ヒー プ 上 に 確保 きれ る の で す 。 

この 操作 が 終わ っ た 段階 で も と どれ だ け ヒ ー プ 上 に 使用 可能 メモ リ が 残っ て いる の か 
を 19 行 目 で 表示 し ます 。 実 際 の 要素 へ の アク セス は 22 一 28 行 目 を 見 て くだ さい 。 こ 
こ で は 対 角 要 素 が 1 、 そ の ほか の 要素 が 0 で ある 単位 行列 を 作っ て いま す 。 単 位 行列 
し 


の よう な 配列 で す 。 
この 配列 の i 行 j 列 目 は a 還 ^ 骨 と し て アク セス で きま す 。25 行 目 で は ij と j が 等 し い 
と き に は それ を 1 と お き 、 そ う で な いと き に は 27 行 目 で 0 と し て いま す 。332 行 目 で 
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alil に 確保 し た ヒー プ を 解放 し ます 。 こ れ を や ら ず に プロ グラ ム を 終了 し て も TURBO 
Pascal は シス テム 、 つ まり MS-DOS に メモ リ を 返し ます 。 し た が っ て 、 こ こ で は 確か 
に Memavail が 元 の 値 に な っ た こと を 確認 する 意味 し か あり ませ ん 。 し か し 、 実 際 に は 
この 例題 の よう な 単純 な ケー ス は まず 存在 し ませ ん 。 配列 に 対し て 各種 演算 を 加え 、 そ 
の 配列 が いら な く な っ た ら Dispose で ヒー プ か ら 捨 て る と いう の が 一 般 的 で す 。 

この リス ト 9-4 を TURBO Pascal の 統合 環境 で 実行 きせ る と 16 行 目 の 実 行 中 に メ 
モ り が パン ク し て エラ ー が 出 て 停止 し て し まい ます 。C( コ ン パ イル ) オプ ショ ン で ディ 
スク 上 に EXE ファ イル を 生成 する よう に 指定 し て コン パイ ル し 、TURBO Pascal か ら 
MS-DOS に 抜け て か ら 実 行 し て くだ さい 。 

ここ で 紹介 し た ポイ ンタ の 使い 方 は ちょ っ と し た ノウ ハウ で す 。TURBO Pascal に 付 
属す る ユー ザー ズ ガ イド に は ポイ ンタ の 基本 的 な 使い 方 だ けが あっ さり と 書い て あり ま 
す 。 ま た 、 こ の ガイ ド に は 「 す ぐれ た Pascal の 参考 書 」 を 読む よう に と 書い て あり ま 
す 。 本 書 が すぐ れ て いる と いう の は いい 過ぎ で す が 、 こ の 章 で ポイ ンタ の 使い 方 に つい 
て は 理解 で きた の で は な いで し ょ うか 。 

プロ グラ ム 全 体 を 通し て 大 次 元 行列 が 必要 な こと は あま りあ り ま せん 。 大 次 元 行列 に 
対し て 処理 を 加え る 直前 に ヒー プ 上 に 設定 し 、 処 理 が 終っ た ら 元 に ヒー プ を 戻し て お け 
ば 、 そ ん な 行列 を 実装 メモ リ の 許す 限り いく つ で も 作れ ます 。 

ここ で は 整数 の 大 次 元 行列 を どの よう に 作る か を 考え て きま し た が 、 科 学 計算 で は 実 
数 配列 を よく 使い ます 。 実 数 と な る と 1 個 で 6 バイ ト 使 いま すか ら 、 整 数 の 3 倍 に な 
り ま す 。 こ ん な アプ リケーション に こそ この 章 で トレ ー ニ ング し た ポイ ンタ を 活用 し た 
いも の で す 。TURBO Pascal で は デー タ は 64K バイ ト に 制限 され て いま す と いわ れる 
と 、 す ぐに 大 き な 行 列 を 使う 計算 は だ め だ と 決め つけ ず 、 動 的 変数 で 解決 する よう に す 
べき で す 。 

必要 は 発明 の 母 と ちい う で は あり ませ ん か 。 あ れ が な い 、 こ れ が な いと グチ を いわ 
ず 、 ど う や っ た ら 自 分 の 希望 する 機能 を TURBO Pascal で 実現 で きる か を よく 考え る 
べき で す 。 結局 、 そ れ が プロ グラ ム 上 達 の 道 な の で すか ら 。 


ター ボ 通 信 


通信 の し くみ を Pascal で 


最近 、 パ ソコ ン 通 信 が 盛ん に 行わ れる よう に な り 、 パ ソコ ン の ワー プロ と 並ぶ も う ひ 
と つの 大 き な 分 野 は ネッ トワ ー ク 利用 と いわ れ て いま す 。 大 き な 商 用 の デー タベース を 
アク セス する に も パソ コン は ソフ トウ ェ ア 次 第 で 、 強 力 な 通信 端末 と し て も 利用 で きま 
す 。 そ れ で は 、TURBO Pascal で は 通信 を サポ ー ト する た めど ん な 機能 が 用 意 き され て 
いる の で し ょ けが か 5 

言論 か ら 先 に いう と 、 通 信 に 対し て 特殊 な も の は 何 も 用 意 き れ て いま せん 。 そ の 理由 
は 、 通 信 自体 を まっ た く 特 殊 な も の と は 扱わ ず 、 一 般 的 な ファ イル に 対す る 入出 力 と み 
な し て いる か ら で す 。 イ メー ジ 的 に 通信 回 線 の 向こう に ある パソ コン は 一 種 の 外部 装置 
と 考え て いる か ら な の で す 。 

た し か に 、 通 信 特 有 の BIOS や 割り 込み な ど が あり ます が 、 通 信 の 主要 部 分 で ある 送 
受信 は 、 装 置 指定 を Aux と し て Read(Ln) ある い は Write(Ln) すれ ば よい の で す 。 つ 
まり 、 プ リン タ に 出力 する と き に PRN と 指定 し た の と 同じ 感覚 で 扱う こと が で きま す 。 

この 章 で は それ だ け で は 済ま すこ と が で き な い プロ グラ ム の 開発 に 必要 な RS-232C を 
利用 する た め の ユ ニッ ト を 開発 し ます 。 こ こ で 紹介 する プロ グラ ム は TURBO Pascal の 
ディ スク に アセ ンプ ブラ で MSA 社 か ら 提 供 さ きれ て いる サン プル プロ グラ ム を 、RS-232C 
関係 に 使い や すく する た め に TURBO Pascal に 移植 し た 簡単 な も の で す 。 

し か し 、 簡 単 だ から と いっ て も 実用 性 が な いわ け で は あり ませ ん 。 こ れ を 利用 すれ ば 
通信 ソフ ト の 開発 や 、RS-232C を 入出 力 ポ ー ト と し て 外部 機器 を 接続 する よう な こと 
も 楽に な り ま す 。 し た が っ て 、 こ こ で は 通信 用 の 入出 力 ポ ー ト で ある RS-232C を 制御 
する た め の ツ ー ル (道具 ) を 作り ます 。 


= に 
まず は イン タフ ェ ー ス を 理 角 し て 
10 一 1mRS-232C 

パソ コン の 通信 に 絶対 的 に 必要 な の は RS-232C の イン タフ ェ ー ス で す 。PO-9801 は 
本 体 背 面 に プリ ンタ 用 の ソケット と 並ん で RS-232C ソケット が 設置 され て いま す 。 こ 
れ が な い パ ソコ ン だ と オプ ショ ン を 購入 し て 増設 スロ ッ ト を 利用 し て RS-232C ソ ケ ッ 
ト を 設け ます 。RS-232C は アメ リカ の EIA(Electronic Industries Association) が 定め 
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た 直列 デー タ 伝 送 用 の イン タフ ェ ー ス 規格 で す 。 パ ソコ ン に 使わ れる よう に な っ て か 
ら 、 こ の 規格 が パソ コン 通信 の 世界 的 な 規格 に な っ て し まし まし た 。 事実 、 ほ と ん どの 
パソ コン に は RS-232C が 標準 で 用 意 き れ て いま す 。 

通信 の た め に は 、RS-232C の ハー ドウ ェ ア に つい て の 知識 は 「 あ る 程度 」 必 要 で す 。 
自動 車 の 運転 を 例 に と っ て みる と 、 日 本 で は 免許 を 取っ て か ら ま ず 一 度 も 触れ も し な い 
自動 車 の 構造 に つい て 勉強 が 義務 づけ られ て いま す が 、 ア メリ カ で は そん な こと は 一 切 
や り ま せん 。 そ の か わり 、 い か に 法規 を 守っ て 安全 運転 し て カー ライ フ を エン ジョ イ す 
る か に 重点 が 置か れ て いま す 。 つ まり 、 ユ ー ザ ー は ユー ザー に 徹する と いう 考え 方 な わ 
け で す 。 パ ソ ュ コン 通信 で も で き あ い の ソ フト ・ パ パッケージ を 購入 し て 使う 立場 に 徹し て 
し まえ ば 、 通 信 が どの よう に お こ な わ れる の か 知る 必要 は あり ませ ん 。 し か し 、 通 信 ソ 
フト ウェ ア を TURBO Pascal で 開発 する と な る と 、 パ ソコ ン 通 信 に つい て 最低 限 の 知 
識 が 必要 に な り ま す 。 そ こ で 、 こ こ で は ご く 科 単 な パ ソコ ン 通 信 ソ フト を 作る た め の 知 
識 に つい て 科 単 に 説明 し て お きま す 。 

パパ ソコ ン 通 信 の ソフ ト 開 発 に どう し て も 必要 な も の は 、 パ ソコ ン 2 吾 と その 両方 を 
接続 する ケー ブル で す 。 こ の ケー ブル は いわ め ゆめ る RS-232C 用 ケー ブル で は あり ませ ん 。 
クロ ス ・ ケ ー ブ ル と 呼ば れる ケー ブル で す 。 普通 の RS-232C ケー ブル で は 一 方 の パソ 
ュ コン の 送信 端子 と も う 一 方 の 送信 端子 が 接続 きれ て し まい ます 。 同 じ こ と が 受信 端子 に 
つい て も お こり ます 。 つ まり 、 パ ソコ ン 同 士 が お 互い の 送信 端子 に 対し て 情報 を 送り だ 
し 、 受 信 端 子 か ら 受 信 し よう と する と お か し な こと に な っ て し まい ます 。 ち ょ うど 電話 
機 の 受話 器 を 口 に 当て 、 送 話 機 を 耳 に 当て る 状態 に な っ て し まう の で す 。 

これ を 解決 する に は 2 吾 の パソ コン の 受信 端子 と 送信 端子 を クロ ス (交差 ) させ て 接 
続 し な けれ ば な り ま せん 。 ク ロス さえ で きれ は ば 特殊 な ケー ブル は 必要 あり ませ ん 。 そ の 
た め の 小 道具 と し て り リバー ス ア ダ プ タ と いう も の が あり ます 。RS-232C の ソケット に 
差し こめ る よう に な っ て いて 、 後 ろ が RS-232C の ソケット と 同じ も の が つい て いる 装 
置 で す 。 こ う 言 われ て も ぴん と こない で し ょ うか ら 、 パ ソコ ン シ ョ ッ プ な ど て で 実物 を 見 
せ て も ら う と よい で し ょ う 。 こ の リバ ー ス アダ プ タ が ある と 普通 の RS-232C 用 ケー ブ 
ル を クロ スケ ー ブ ル と し て 使用 で きま す 。 

ここ まで 読ん で き て 、 パ ソコ ン 通 信 に は モデ ム が 必要 な は ず だ と 思わ れ た の で は な い 
で し ょ うか 。 確 か に 、 実 際 に パソ コン 通信 は 電話 回 線 を 使用 し ます か ら 、 モ デム が な け 
れ ば どう し よう も あり ませ ん 。 し か し 、 モ デム に よる 電話 回 線 を 利用 する パソ コン 通信 
で は 、 電 話 機 が 2 台 必 要 で す 。 お まけ に 、 開 発 中 は 通信 を テス ト す る た びに 電話 を 一 方 
か ら 他 方 へ か け 、 モ デム の 動作 モー ド を 設定 し た りす る 操作 が 必要 と な り 面 倒 な こと に 
な り ま すか ら 、 開 発 の ペー ス が が っ くり と 低下 し て し まい ます 。 パ ソコ ン を 2 右 そ ろ え 
る だ け で も アマ チュ ア に は 大 変 な こと な の に 、 そ の 上 に 電話 機 を 2 台 (2 回 線 ) と モデ 
ム も 2 右 と いう の は 現実 的 で は あり ませ ん 。 ぜ ひ ク ロス ケー ブル か RS-232O ケー ブル 
と り バ ー ス アダ プ タ を 用 意 し て くだ さい 。 
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その 他 に 知っ て お きた だい の は パリ ティ チェ ッ ク と フロ ー 制 御 で す 。 

まず 、 パ リティ チェ ッ ク で す が 、 こ れ は 偶数 (イー ブン ) と 奇数 (オッ ド ) の 2 種類 あ 
る こと と 、 通 信 中 の 雑音 に より 誤っ た 情報 が 伝送 きれ る の を 防止 する た め の 約 束 ご と だ 
と いう 程度 だ け 知 っ て お け ば よい で し ょ う 。 フ ロー 制御 は パソ コン 同士 で 相手 が 受信 で 
き な い 状態 の と き に 「 た れ 流 し 」 的 に 次 々 に 送信 が お こら な いよ うに する た め の パ ソコ 
ン 通信 上 の 規則 で す 。 

一 方 の パソ コン が 送信 し て いる と き に 、 受 信 側 の パソ コン の 処理 速度 が 遅い と 送信 し 
た 情報 が 捨て られ て し まい ます 。 そ ん な こと に な ら な いよ うに 、 受 信 側が も う 受 信用 に 
用 意 し た バッ ファ の 3/4 を 越え る 文字 が 受信 され る と 、 送 信 側 に た いし て X-OEF(Ctrl- 
S = 13H) 信号 を 送り 、 送 信 側 の パソ コン に 送信 を 一 時 中 断 す る よう に 指令 し ます 。 受 
信 側が バッ ファ か ら 文 字 を 取り 出し 、 バ ッ フ ァ の 1/4 以下 し か 文字 が な く な っ た ら な っ 
た ら X-ON(CtrLQ = 11H) 信号 を 送り 、 送 信 を 再開 する よう に 指令 し ます 。 

も っ と も フロ ー 制 御 し た か ら と いっ て 、 上 の よう な 動作 が 自動 的 に 行わ れる わけ で は 
あり ませ ん 。 送信 側が X-ON や X-OEF 信号 を 認識 し て 送信 を 止め た り 再 開 し て くれ た 
りす る よう に プロ グラ ミン グ さ れ て いな けれ ば な ら な い の で す 。 こ の フロ ー 制 御 は 通信 
速度 の 遅い 場合 に は 必要 あり ませ ん が 、 高 速 で 通信 する と き に は 必要 に な り ま す 。 通信 
速度 が どの 程度 だ と 遅く 、 ど の 程度 だ と 高速 か は 今 の と ころ 大 体 の 目安 と し て 300BPS 
な ら 超 低速 、1200BPS で 標準 、2400BPS 以上 な ら 高 速 と 思っ て よい で し ょ う 。 

ここ で 、BPS と は 通信 速度 の 単位 で Bit Per Second( ビ ッ ト ・ パ ー・ セ カン ド ) と い 
う 1 秒 当 り 伝 送 き れる 通信 ビッ ト 数 で す 。1 万 円 前 後 の 安価 な モデ ム で は 1200BPS が 
普通 で 、 パ ソコ ン 通 信 で も この 伝送 速度 が 一 番 多く 用 いら れ て いま す 。300BPS だ と 上 
に 説明 し た フロ ー 制 御 は まず 必要 あり ませ ん 。 

2400BPS だ と 一 応 満足 で きる 伝送 速度 が 実現 で きま す が 、 受 信 側 の 処理 速度 を 大 幅 
に スピ ー ド アッ プ さ せな けれ ば な り ま せん 。TURBO Pascal で も 処理 速度 が 問題 に な 
り ま すか ら 、 頻 繁 に 使う 手続 き 類 は アセ ンプ ブラ で 開発 する な どか な りや っ か いな こと に 
な り ま す 。 も ちろ ん 、 フ ロー 制御 すれ ば 受信 側 の 処理 速度 が 遅く て も 2400BPS で 通信 
する こと は 可能 で す 。 


BIOS を 調べ て みる 
10--2mRS-232C の BIOS 
高級 言語 で プロ グラ ム を 書く 理由 の ひと つ に 異 機種 韻 の プロ グラ ム 移 植 性 を 高め る 
こと が あり ます 。 し か し 、 現 在 の パソ コン の 処理 速度 で は 高級 言語 で は 十分 な 処理 速度 
が 得 ち れ な い 場 合 が あり ます 。 そ れ を 解決 する た め に アセ ンプ ブラ で プロ グラ ム 開 発する 
と いう こと に な り ま す 。 現在 の 16 ビッ トペ パソ コン の 主流 で ある 8086 系 の CPU で あれ 
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ば 、 ア セン ブラ は 共通 し て いま すし MS-DOS の アセ モン ブラ MASM で 開発 すれ ば 移植 
性 も か な りあ り ま す 。 

と ころ が 、 ア セン ブラ は 共通 で も それ で 作っ た プロ グラ ム は ハー ドウ ェ ア に か な り 依 
存 し ます か ら 、 ア セン ブラ と し て は 移植 で き て も プロ グラ ム 内 容 は パソ コン に よっ て 大 
きく 異な っ て し まい ます 。 お まけ に 、 ア セン ブラ で プロ グラ ム 開 発する た め に は アセ ン 
ブラ の 勉強 も 必要 で す 。 そ こ で 便利 に 使わ れる の が MS-DOS の シス テム ・ コ ー ル で す 。 
高級 言語 と と ステ ム ・ コ ー ル を 使え ば 異 機種 間 の 移植 性 は ほとん ど 100% ま で に な り ま 
す 。 し か し 、MS-DOS の 通信 関係 の シス テム ・ コ ー ル は 03 、04 番 の 補助 装置 に 対す る 
入出 力 の み と い うさ び し さ で す 。 

し か し 、 パ ソコ ン に 用 意 さ きれ て いる BIOS を 利用 すれ ば 移植 性 は 低下 し ます が 、 ア セ 
ン ブ ラ で プロ グラ ム 開 発 を する 手間 が 省け ます 。 も ちろ ん 、BIOS は パソ コン の 機種 に 
依存 する も の で す が 、 移 植 に あたっ て は この 部 分 だ け を 書き 直す だ け で 済み ます か ら 、 
アセ ンプ ブラ より は る か に 移植 が 楽に な り ま す 。 そ こ で 、 移 植 性 を 少々 犠牲 に し て も 高速 
な 通信 プロ グラ ム を TURBO Pascal で 開発 し た い ぃ 読者 の た め に PC-9801 に 用 意 さ れ て 
ぃ る RS-232C 関係 の BIOS を 紹介 し て お きま す 。BIOS は Intr 手続 き に よっ て 次 の よ 
う に 呼び 出し て 使用 し ます 。 


Intr($19 , Regs) : 
ここ で 、Regs は Dos ユニ ッ ト で 定義 され た Registers 型 の 変数 で ある と し ます 。 


(a) RS-232C の 初期 化 

【 入 力 条件 】 

AH - OOH 

AL 一 伝送 速度 ( 表 10-1) 

BH 一 500m 秒 単位 の 送信 タイ ム ア ウ ト 時 間 指 定 で 、01H(500m 秒 ) 一 FEFH(127.5 
秒 ) 、00H な ら 1 秒 

BL - 500m 秒 単 位 の 受信 タイ ム ア ウ ト 時 間 指定 で 、 01H(500m 秒 ) 一 FEFH(127.5 秒 ) 、 
OOH な ら 30 秒 

CH 一 / PD8251A(RS-232C イン タフ ェ ー ス ) モー ド 設 定 情報 ( 表 10-2) 

CL 一 PD8251A コマ ンド 指定 ( 表 10-3) 

DX 一 受信 バッ ファ サイ ズ ( 表 10-4) 

ES : DI 一 受信 バッ ファ 先頭 アド レス ( 表 10-4) 

【 出 力 条件 】 

AH 一 リタ ー ン コー ド (正常 終了 時 は 00H) 

(その 他 入 力 条 件 の レジ スタ 以外 は 保存 ) 


(b) フロ ー 制 御 を 伴 う 初期 化 
【 入 力 条件 】 


「 
" 
| 
| 
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AH - O1H 

その 他 は (a) と 同じ 。 

【 出 力 条 件 】 

(&) と 同じ 。 

た だ し 、 表 10-4 の ELAG の XON ビッ ト が 1 に セッ ト 。 


(c) 受信 デー タ 長 入手 (GET DTL) 


【 入 力 条 件 】 

AH 02H 

【 出 力 条件 】 

AH 一 り リタ ー ン コー ド 
00H : 正常 終了 


01H : RS-232C の 初期 化 が され て いな い 

02 叶 : 受信 パッ ファ オー パー フロ ー 
9 多 w デ ーー タッ スズ テー タス の 3 パイ オト を 1 ワー ド と し た 受信 ワー ド 数 
(その 他 の レジ スタ は 保存 ) 


(d) デー タ 送 信 (SEND DATA) 

【 入 力 条件 】 

AH 一 03H 

AL 一 1 バイ ト の 送信 デー タ 

【 出 力 条件 】 

太 則 テン ゴー ド 
01 一 02H : (c) と 同じ 
03H : PD8251 が 送信 可能 状態 (TXRDY) で な ぃ 


(e) デー タ 受 信 (RECETVE DATA) 

【 入 力 条件 】 

AH - 04H 

【 出 力 条 件 】 

AH 一 リタ ー ン コー ド ((q) と 同じ ) 

0 選 呈 受 橋 ア デー タ 。 

バッ ファ が 空 の と き は タイ ム ア ウ ト ま で 待ち も 、 そ れ で も 空 な ら ば リタ ー ン コー ド に 
03H( 受 信 可 能 RXRDY で は な い ) を 出力 する 。 

CL 一 受信 デー タ の 受信 時 の ステ ー タ ス (フロ ー 制 御 有効 時 に X-OFF 出力 し て いて 、 
CNT が バッ ファ サイ ズ の 1/4 以下 に な る と 、 自 動 的 に X-ON を 相手 側 に 出力 する ) 。 


(f) コマ ンド 出力 (COMMAND OUT) 
【 入 力 条件 】 
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AH 一 05H 

AL 一 PD8251 へ 出力 する コマ ンド ( 表 10-3) 

【 出 力 条 件 】 

AH 一 リタ ー ン コー ド ((d) と 同じ ) 

(AX 以外 の レジ スタ は 保存 され る 。 IR 指定 だ と FLAG の INIT ビッ ト が セッ ト さ れ 、 
初期 化 待 ちの 状態 に な る 。) 


(g) RS-232C ステ ー タ ス 入 手 
【 入 力 条件 】 
AH - 06H 
【 出 力 条 件 】 
AH 一 リタ ー ン コー ド ((d) と 同じ ) 
CX 一 表 10-5 
較 (旧版 の 表 10.1 一 5) ※ 巻 未 参照 


それ で は ユニ ッ ト 作 成 
10-3mRS-232C 用 ユニ ッ ト 

ここ まで の 知識 で TURBO Pascal で 提供 され て いる オリ ジ ナ ル サ ン プ ルプ ログ ラム 
の RS232C.PAS 、RS232C.ASM を も っ と 使い や すく TURBO Pascal に 移植 し ます 。 
この 2 本 の プロ グラ ム ・ フ ァイル は ディ レク トリ 壮 TP 壮 UNITS の 中 に 入っ て いま す 。 
この オリ ジ ナ ル を まず 最初 に コン パイ ル し 、 次 に 同じ ディ レク トリ の 中 に 入っ て いる 
RSDEMO.PAS を コン パイ ル す る と いう 順序 に な り ます 。 実際 に 動か し て みる と き に 
は 、RSDEMO.PAS の 頭 部 に 書い て ある よう に 、MS-DOS の バー ジョ ン が 3.10 以上 で 
ある こと と 、CONEIG.SYS の 中 に デバ イス ドラ イ バ RSDRV.SYS が 入っ て いな いこ と 
を 確認 し て か ら に し ます 。 

さら に 、 プ ログ ラム 頭 部 で 「 サ ンプ ルプ ログ ラム な の で 改良 や 技術 的 な サポ ー ト は 
し な い 」 む ね 書い て あり ます か ら 、 こ れ を 改造 し た り 参 考 に し た りす る に は どう し て 
も RS232C.ASM と いう アセ ンプ ブラ で 書か れ た プロ グラ ム を 解読 し な けれ ば な り ま せ 
ん 。 し か し 、 後 々 の 利用 や プロ グラ ム の 読み や すさ 、 改 造 の 容易 さ の た め に は TURBO 
Pascal で この 部 分 を 書い て お いた ほう が 楽 で す 。 そ こ で MSA 社 の オリ ジ ナ ル を 移植 し 
て みた の が り リスト 10-1 で す 。 

この リス ト で は オリ ジ ナ ル の 2 本 の ファ イル を TURBO Pascal の RS232C ユ ニッ ト 
と し て 1 本 に まとめ て あり ます 。 た だ し 、 コ メン ト は で きる だ け オ リ ジ ナ ル の も の に 合 
わせ て ある の で 、 リ スト 10-1 と 比較 し て みて くだ さい 。 
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圏 リス ト 10-1 
1 : un1t RS2326: 
< 
3: {t$D-, エ -,8-} 
4: 
5: interface 
6: 
7: const 
8: TRANS_75 = $00: { 通信 速度 75BPS } 
9: TRANS_150 = $O1: { 通信 速度 150BPS } 
10: TRANS_300 = $02: { 通信 速度 300BPS } 
11: TRANS_600 = $03: { 通信 速度 600BPS } 
12: TRANS_1200 = $04: { 通信 速度 1200BPS + 
13: TRANS_2400 = $05: { 通信 速度 2400BPS } 
14: TRANS_4800 = $06: { 通信 速度 4700BPS } 
15: TRANS_9600 = $07: { 通信 速度 9600BPS } 
16:  XFLW_ON = $01: { X フ ロー 制御 を する }+ 
17:  XFLW_OFF = $00: { X フ ロー 制御 を し な い } 
18: 
19: var 
20: RsResu1t : Byte: { 手続 き の 実 行 結果 } 
21: RsRecvStatus  : Byte: { 受信 デー タ の 受信 時 ステ ー タ ス } 
22: Rs8251AMode : Byte: { / PD8251 モー ド 設 定 値 } 
23: Rs8251ACommand : Byte: { / PD8251 コマ ンド 指定 値 } 
24: RsSendTimeUut : Byte: { 送信 時 タイ ム ア ウ ト 時 間 } 
25: RsRecvTimeOut : Byte: { 受信 時 タイ ム ア ウ ト 時 間 } 
26 : 
27: procedure RsTnit(trans: byte: buf: po1nter: buf_siz: word: 
28: x_f1g: byte) : { 初期 化 } 
29: procedure RsTerm: { 終了 処理 } 
30: procedure RsPutc(chr: Char): { 文字 の 送信 } 
31: function RsGetc: Char: { 受信 文字 取得 } 
32: function RsLoc: word: { 受信 文字 数 取得 } 
⑳9・ 
34: implementation 
に 
36: uses DOS: 
き の : 
38: const 
39: RS_BITOS = $19: { BIOS ファ ンク ショ ン 番 号 3 
40: TNIT1 = $00: { フロ ー 制 御 を 行わ な い 初 期 化 } 
41: TNTT2 = $01: { フロ ー 制 御 を 行う 初期 化 + 
42: LOC_RECVDATA = $02: { 受信 デー タ 長 の 取得 + 
43: SEND_DATA = $03: さま デー タ の 送信 + 
44: RSCV_DATA = $04: { デー タ の 受信 + 
45: 
46: var 
47: TRANS_speed, {通信 速度 } 
48 XFLOW_FLG  : BYTE: {X メ フロ ー 制 御 } 


愉 
( 〇 
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: procedure RsTnit(trans: byte: buf: po1nter: 


buf_siz: word: x_f1g: byte): 


: tYPD@e 
DWord = record 
HighWord , 
LowWord  : word: 
end: 


・ Va 


Regs : reg1sterS: 
ptr  : DWord abso1ute buf: 


: begin 


TRANS_speed := trans: 
Regs .AL := tranSs: 


Regs.ES := ptr.HighWord: { buf address 
Regs.D1 := ptr.Lowword: 

Regs.DX := buf_s1iz: 

XFLUW_FLG := x_f1g: 


if x_flg = XFLW_ON then 
Regs.AH := INIT2 
else Regs.AH := TNITT1: 


Regs.BH := RsSendTimeUut : 
Regs .BL := RsRecvTimeUut : 
Regs.CH := Rs8251AMode: 

Regs .CL := Rs8251ACommand: 


intr( RS_BTOS, regs ): 
RsResu1t := Regs.AH {リタ ー ン コー ド } 


: end: { of RsTnit + 


: procedure RsTerm: 
: Var 


Regs : reg1SterS: 


: begin 
Regs.DI := 0: { buf offset address cl1ear 
Regs.ES := 0: { buf segment address clear 
Regs.DX := 0: { buf_siz cl1ear ナ 
Regs .AL := TRANS_speed: { trans ナ 


1f XFLOW_FLG = XFLW_ON then 
Regs .AH := INIT2 
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99: else Regs.AH := TNIT1: 
100: 


101 : Regs .BH := RsSendTime0ut : 
102: Regs .BL := RsRecvT1imeUut : 
103: Regs.CH := Rs8251AMode : 

104 : Regs .CL := Rs8251ACommand: 


105: 

106: 1intr( RS_BIOS, Regs ): 

107: RsResu1t := Regs.AH: {りり ター ンコ ー ド } 
108: end: { of RsTerm } 


109: 

すま 0 < 人 が ーー ュー ネート と エモ ーー ロマ サー モード ニ ち エピ ー ジ と コン セー ビー ニー コー ューー ニ ニニ ニュ ー ち コニー ニャ ーー ピー と ピ + 
111: procedure RsPutc(chr: Char) : 

112: var 

113: Regs : reg1ster8: 

114: 

115: begin 

116: Regs.AL := byte(chr) : { 送信 文字 + 

人 < Regs.AH := SEND_DATA: 

8> intr( RS_BTOS, Regs ): 


119: RsResu1t := Regs.AH: {リターン コー ド } 

120: end: †{ of RsPutc 

PP 

122: {一 ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー ニ ーーーーーーー } 
123: function RsGetc: char: 

124: var 

125: Regs : registers: 

126? 

127: begin 

128: Regs.AH := RSCV_DATA: 

129 : intr( RS_BIOS, Regs ): 

1 

131: RsResu1t := Regs.AH: { リターン コー ド } 

132: RsRecvStatus := Regs.CL: { 受信 デー タ の 受信 時 ステ ー タ ス } 
133: RsGetc := char( Regs.CH ): { 受信 デー タ } 

134: end: { of RsGetc } 

135 : 

1.36 : {ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー + 
137: function RsLoc: word: 

138: var 

139: Regs : reg1sterS: 

140: 

141: begin 

142: Regs.AH := LOC_RECVDATA: 

143: intr( RS_BIOUS, Regs ): 

144 : 

145: RsResu1t := Regs.AH: {て リターン コー ド } 

146: RsLoc := Regs.CX: 本 人 信 天 っ 人 交 療 : + 

147: end: { of RsLoc } 
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148.: 

149 : = ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニー ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニ ニニ ニニ ニニ ニニ ニー 
150: 

151: begin 

152: { 各 変 数 の 初期 値 を 設定 する } 

153: Rs8251AMode := $4E: 

154 : {スト ッ プ ビ ピット:1,。 デー タビ ッ ト :8, パ リティ: イネ ー プ ブル } 
155: Rs8251ACommand := $37, {コマ ンド 指定 } 

156: RsSendTime0ut := $02: て {デフォルト 時 間 : 1 秒 } 

157: RsRecvTime0ut := $1E: {デフ ォ ル ト 時 間 : 15 秒 } 

158: end. 


それ で は リス ト 10-1 の 中 を 見 て み ま し ょ う 。 ま ず 、1 行 目 で ユニ ッ ト 名 の 宣言 を し ま 
す 。 こ の ユニ ッ ト 名 は デモ 用 プロ グラ ム RSDEMO.PAS で 使用 する こと に な っ て いる 
ユニ ッ ト 名 RS232C に 合わ せ て あり ます 。3 行 目 は この ユニ ッ ト の 実行 速度 を 向上 させ 
る た め の コ ン パ イラ 指令 で す 。 

この ユニ ッ ト の 外部 と の イン タフ ェ ー ス が 5 32 行 目 で す 。8 15 行 目 ま で の 定数 
は 通信 速度 を 指定 する た め の も の で す 。16 、17 行 目 で XX フロ ー オ ン と オフ の 場合 の そ 
れ ぞ れ 定 数 の 定義 し て お きま す 。19 25 行 目 で 宣言 され て いる 変数 の 意味 は リス ト 内 
の コメ ント を 参考 に し て くだ さい 。 

27 一 32 行 目 は この ユニ ッ ト が 提供 する 手続 き と 関 数 の 宣言 で す 。 こ こ に は 3 つの 手 
続き と 2 つの 関数 が あり ます 。RS-232C の 初期 化 を する RsInit 、 使 用 の 終了 に 伴う 処 
理 を する RsTerm 、 文 字 送 信 を する RsPutc と 受信 を する RsGetc 、 そ し て 受信 し た 文 
字数 を 手 に 入れ る た め の RsLoc で す 。 

これ ら 手 続き と 関数 の 具体 的 内 容 が 34 行 目 以 下 の 実現 部 で す 。 こ の Unit で は BIOS 
コー ル を 使い ます か ら 、DOS ユニ ッ ト の 使用 を 36 行 目 で 宣言 し て お きま す 。38 一 48 
行 目 で 宣言 され て いる 定数 、 変 数 の 意味 は リス ト 中 の コメ ント を 参照 し て くだ さい 。 

51 行 目 か ら 始 まる RsInit は RS-232C の 初期 化 で す 。 引数 と し て は 通信 速度 の trans 、 
バッ ファ の 先頭 を 示す ポイ ンタ buf 、 バ ッ フ ァ の サイ ズ buf_siz 、 そ し て XX フロー 制御 
の オン オフ フラ ッ グ x_Hg が あり ます 。53 行 目 で 定義 し て いる 型 DWord は 2 バイ ト を 
ひと つと し て 取り 扱い 、 し か も その 上 位 バ イト と 下位 バイ ト を 別々 に アク セス し た いと 
き に よく 使う テク ニッ ク で す 。 

61 行 目 の 変数 Regs は も う お な じみ の Dos ユニ ッ ト の レジ スタ を 示す 変数 で す 。62 行 
目 で は 変数 ptr を バッ ファ buf の 先頭 アド レス に 一 致 さ きせ る よう に し て いま す 。65 行 目 
か ら は 83 行 目 で RS-232CBIOS コー ル $19 を 行う ため の 準備 で す 。832 行 目 で RS_BIOS 
と な っ て いま す が 、 リ スト の 先頭 の ほう で これ は $19 で ある 定数 と し て いま す 。 

この よう に 定数 を わざ わざ 文字 で 現し て お く の は 、 こ うす れ ば この ユニ ッ ト を 他 の 
パパ ソコ ン に 移植 し いた と き な ど 、 プ ログ ラム の 先頭 の ほう に 置い た 定数 宣言 部 の 値 を 
変え る だ け で 済む か ら で す 。 さ も な いと 、 こ の ユニ ッ ト の 中 に ある $19 を すべ て 探さ な 
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けれ ば な ら な く な り ま す 。 ま た 、 も し も $19 が ある 特定 の 文字 を 表し て いた りす る と 、 
ユニ ッ ト 中 に 現れ る $19 が どちら を 意味 する の か いち いち 考え な けれ ば な ら な く な り ま 
す 。 こ ん な 無用 な こと を 人 避け る た め 、 定 数 は で きる だ け そ の も の の 値 で な く 、 わ か りや 
すい 名 前 を 付け て 置く こと を お 勧め し ます 。 

87 行 目 か ら の 手続 き RsTerm は RS-232C の 使用 を 終了 する た め の 処 理 で す が 、 内 容 
自体 は 初期 化 の た め の 処 理 と ほとん ど 変 わり ませ ん 。 た だ バッ ファ に 関係 する も の を す 
べ て 0 に リセ ッ ト し て いる と ころ が 違っ て きま す 。11 行 目 か ら の 手続 き RsPutc は 1 バ 
イト 、 つ まり 1 文字 を 送信 し ます 。123 行 目 の 関 数 RsGetc は バッ ファ か ら 1 文字 を 取 
り 出 し ます 。137 行 目 の 関数 RsLoc は 受信 デー タ 長 を 手 に 入れ る た め の 関 数 で す 。 

以上 の 手続 き や 関 数 は 前 節 の RS-232C の BIOS の まとめ を 参考 に すれ ば 何 を し て い 
る の か 一 目 瞭 然 で し ょ う 。151 行 目 か ら PD8251A の 初期 化 と デフォ ー ル ト の 送信 タ 
イム アウ ト 時 間 、 受 信 タ イム アウ ト 時 間 を 設定 し ます 。 

これ で RS-232C 用 の ユニ ッ ト RS232C が で きま し た 。 こ の ユニ ッ ト を コン パイ ル し 
て RS232C.TPU を 作っ て か ら 、TURBO Pascal の 中 に 入っ て いる RSDEMO.PAS を 
コン パイ ル し RSDEMO.EXE を ディ スク 上 に 作っ て くだ さい 。 正しく プロ グラ ム が 動 
作 す る か どう か を 調べ る に は パソ コン を 2 吾 RS-232C クロ スケ ー ブ ル で 接続 し て みる 
の が 一 番 で す 。 ク ロス ケー ブル を 持っ て いな けれ ば パソ コン と モデ ム を 接続 し て いる ス 
トレ ー ト ケー ブル に リバ ー ス アダ プ タ を つない で クロ スケ ー ブ ル に する の が よい で し ょ 
う 。 リ バー ス ア ダ プ タ は 千 円 程度 で すか ら 、 ひ と つ 手 に いれ て お く こ と を お 勧め し ま 
す 。RS-232C 関係 の プロ グラ ム を 作る と き に と て も 重宝 し ます 。 

ここ で は PO-9801 で この プロ グラ ム を 走ら せ 、 ク ロス ケー ブル で DynaBook に 接続 
し まし た 。DynaBook 側 は 市 販 の 通信 ソフ ト で 通信 速度 を 9600BPS に 設定 し て みた と 
ころ 、 あ た り ま え の こ と で す が 見 事 に 動作 が 確認 で きま し た 。 


さら な る 発展 の た め に 


快適 プロ グラ ミン グ の た め の ノ ウ ハ ウ 


第 10 意 ま で に エキ スパ ー ト に な る た め の 一 通り の テク ニッ ク を トレ ー ニ ング し まし 
だ 。 し か じ 、 だ た だ 例題 と し て 紹介 し た プロ グラ ム を 写し て 、 そ れ を 自分 の パソ コン で 
TURBO Pascal に より 走ら ちせ て みて も 、 そ れ は それ だ け の こと で す 。 そ ん な こと な ら 初 
心 者 で も 正確 に タイ プ 入 力 で きれ ば よい だ け の 話 で す 。 そ れ だ け で は TURBO Pascal 
の エキ スパ ー ト に な る の は お ぼ つ きま せん 。 

この 本 で 提供 きれ て いる 例題 は 初め に お 断り し た よう に 、 あ くま で も 出発 点 に すぎ ま 
せん 。 し た が っ て 、 こ の 章 ま で 読み 進ん で こら れ た 読者 の あな た ほど の 「 実 力 者 」 な ら 
ば 、 例 題 の いく つか は 例 の た め の 例 に な っ て いて 実用 性 が な いじ ゃ な いか と いう 不満 が 
ある で し ょ う 。 け れ ど も 、 な る ほど こん な こと が TURBO Pascal で プロ グラ ミン グ で 
きる の か と いう こと が わか れ ば 、 そ こ を 出発 点 に こし て すばらし い プ ログ ラム へ と 発展 で 
きる 可能 性 が あり ます 。 実 は そこ へ 発展 で きる よう な 例題 を で きる だ け 取 り 上 げ て きた 
つも り で す 。 

ここ まで の トレ ー ニ ング に より いろ いろ な プロ グラ ム 開 発 を 通し て 、 い か に TURBO 
Pascal の 持っ て いる 機能 を フル に 発揮 きせ る か を 試み て きま し た 。 実 は を の こと を 味 
わ う こと が エキ スパ ー ト へ の 人 道 で す 。 こ の 章 で は ここ まで の トレ ー ニ ング の 分 類 に 入ら 
な か っ た も の で 、 き っ と 役に立つ と 思わ れる プロ グラ ム の 開発 と テク ニッ ク の 紹介 を し 
て みた いと 思い ます 。 内容 的 に 難し いこ と は 何 も な い は ず で す が 、 ど れ も ち ょ っ と 知っ 
て いる と と て も 便利 な も の ば か り で す 。 
プロ グラ ム の 内 容 が 理解 で き な く て も 入力 し て みて どう な る か を 見 る だ け で も お も し 
ろ い と 思い ます 。 む ろ ん 、 説 明 を 参考 に し な が らい ろ い ろ 変 形 し て 実験 し て みて も 新 し 
い ア イデ ア が えら れる で し ょ う 。 実は この チャ レン ジ 精 神 こ そ エ キス パー ト に な る だめ 
に 最も 大 切な こと な の で す 。 そ うい う 意 味 で は この 章 の 例題 は 「 改 造 」 の し が い の あ る 
も の ば か り で す 。 


リス ト 打 ち 出 し の た め に 
11-1m リ スタ ー 
あな た は プロ グラ ム を デバ ッ グ する と き に パソ コン の 画面 で や り ま すか 、 そ れ と も 
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いっ た ん 印刷 し て 紙 の 上 で や り ま すか 。 む ろ ん 、 パ ソコ ン の 画面 上 で デバ ッ グ で きれ ば 
それ に こし た こと は あり ませ ん が 、 せ い ぜ い 20 数 行 し か 見 通せ な い の で 、 ど うし て も 
紙 に 印刷 せ ざ る を えな い の が 実状 で す 。 

紙 を 無駄 に する こと は 森林 資源 上 好ま し く な いこ と は 十分 承知 し て は いる の で す が 、 
いつ で も どこ で も デバ ッ グ で きる の は 魅力 で す 。 紙 を 単なる 紙 だ と 思わ ず に 、 表 示 装 置 
と し て 考え て みる と それ も 納得 で きる で し ょ う 。 紙 な ら 電 源 も 必要 あり ませ ん し 、 好 き 
な と ころ に すぐ アク セス で き て 赤 で いろ いろ 記入 で きる の で す 。 こ れ は パソ コン の 画面 
が か な り 大 きく な いと 同じ よう な こと が で き な い の で 、 当 分 の 間 は 紙 に 印刷 し た プロ グ 
ラム リス ト を 眺め る 時 代 が 続き そう で す 。 

そこ で 、 こ こ で は プリ ンタ 制御 も 含め トレ ー ニ ング する た め 新 た に オリ ジ ナ ル の リス 
ター を 開発 し まし ょ う 。 中身 が 自分 の 作っ た も の な ら ば 、 ど こ を どう 改造 すれ ば よい ぃ の 
か 人 簡単 に で きる し 、 必 要 な 機能 だ け に 絞っ て コン パク ト な リス ター が 作れ ます 。 


圏 リス ト 11-1 

1: program LIST11_1: 

2: uses Crt: 

疫 ? VaY 

4: inbuffer : string[135] : 

0 fiLename : string[14] : 

6: 1s も TLe 。 1nf1Le : text : 

OR pagecount ,Linecount : integer : 

8: Printer : booLean : 

に 

9 con8t 

全 人 MAXLTNE = 52 : 

2 FURM_FEED = #12 : 

hn コ だ で StexmmーAC こ eS 居 2 コジ さわ ーー ニラ ビジー ニー ニニ ニー ジニ ニニ ニュ テー + 
14: 

15: procedure Tnput_FiLe: 

16 : 

は Var 

18: existing : booLean : 

19: 
20 : begin 
ま 3 repeat 
の Write(〉 Enter FiLe Name ', 
23: 2 も GO. 上 上 きも or く CR> も o Exit 7?): 
24 : ReadLn(fiLename) : 
25 : if fiLename = ?) then haLt: 
26 : if Pos(?.〉 , fiLename) = 0 then 
どす 9 fiLename := Concat(fiLename , '.pas?): 
28: Assign(infiLe , fiLename) : 
29: {$ ュ -+ 
30: Reset(infiLe) : 


31 : {$ ュ 1++ 
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に 人 ex1sting := (TUResuLt = 0): 

33 : if not existing then 

34 : begin 

35 : WriteLn(: FiLe Doesn'?t Ex1st〉) : 

36: DeLay(700) : 

に end : 

38: unt1L ex1st1ng: 

39 : end : 

24071 デュ ャ スパ タマ イセ コキ ーーー きき プペ ーー ホリー イベ サテ 
41: 

42: procedure DUut_Dey: 

43: Yar 

44 : Q」 GDB は 

45 : begin 

46 : repeat い 

47: Write(? Output Listing to !。 

48: > (C)onsoLe or (P)rinter ? う ): 

49 : ReadLn (c) : 

50: c := UpCase(c): 

51 : RE ま E 3 AE26) > 叶 : 

52: WriteLn : 

53: if c = ?C〉 then 

54 : begin 

55: Assign (ListfiLe , CON〉): 

56 : Printer := FALSE : 

57 : end 

58 : eLse 

59: begin 

60: Assign (ListfiLe , PRN〉): 

61 : Printer := TRUE: 

62: end : 

63: Rewrite(ListfiLe) : 

64: Gend : 

9 けつ ービス ニー こま ニュ ャ ー ュ ニー ば ーー ロ m コ ーーーmーー セ ーー ニー ピナ キー ューー ン テコ ーー ュ ニ ーーー + 
66: 

67: Procedure Line_Print: 

68: begin 

69: if Linecount く 10 then 

70: WriteLn(ListfiLLe , 〉 > Linecount 。): )。1nbuffer ) 
PE eLse 

7 の 5 if Linecount く 100 then 

73: WriteLn(ListfiLe,) ?,Linecount,”: ),inbuffer) 
74: eLse 

75: if Linecount く 1000 then 

76: ・ WriteLn(ListfiLe,) ?,L1inecount 7: )。 

7 人 inbuffer) 
78: eLse 

79: WriteLn(ListfiLe ,Linecount 。): ) 。1nbuffer) : 


80: end: 
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81 : {ご ーー ニー ニー エー ニー エエ ビュ テニ エーーー ニー ニーー ニ ニー ニー ニーー ニ ーー ニニ ーー ニー ニー ニー ニー ニニ ーー ニー ニニ ー + 
82: 

83: procedure Skip_Page : 

84 : begin 

85: 1f printer then 

86 : Write(ListfiLe,FURM_FEED) 

に 7 人 eLse WriteLn : 

88: WriteLn(ListfiLe ,?TURBU PASCAL. SOURCE CODE'? , 
89: 〉) LISTER : Listing of ',fiLename , 
90 : > PAGE  ',pagecount) : 
91 : WriteLn(ListfiLe) :WriteLn(ListfiLe) : 

ピア Pagecount := Succ(pagecount) : 

93: end : 

94 : 

95 : [ニニ == ニ = ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ 
96 : 

97: begin 

98: CLrScr: 

99: repeat 

100: Tnput_FiLe: 

hh Uut_Dev: 

102: Linecount := 1: 

103: pagecount := 1: 

104: Skip_Page: 

105: 

106: while not eof(infiLe) do 

107: begin 

108: ReadLn(infiLe ,inbuffer) 

109: Line_Print: 

0 Linecount := Succ(Linecount) : 

Wes if (Linecount>0) 

31 の 2: and (Linecount mod MAXLTNE=0) then 
113: Skip_Page : 

114: end: {twhiLe not eof+ 

115: if printer then Write(ListfiLe,FURM_FEED) : 

わき until FALSE 

よ ま た end . 


リス ト 11-1 を 見 て くだ さい 。 こ れ が リス ター で す 。 こ の リス ト 自 体 リス ト 11-1 で 
作っ た も の で す 。 

リス ター 設計 上 必要 と な る の は 、 リ スト を と る べき ソー ス フ ァ イル 名 の 入力 、 出 力 装 
置 の 選択 、 用 紙 1 ペー ジ に 印刷 する 行 数 で し ょ う 。 こ れ を すべ て 手続 き に し て し まえ 
ば 、 プ ログ ラム は か な り 科 単に 作れ ます 。TURBO Pascal を トレ ー ニ ング し て きた 読 
者 な ら 、 当 然 の プロ グラ ム 製 作法 で すね 。 

まず 、15 - 39 行 の 手続 き 、Input_File で ファ イル 名 の 入力 を 行い ます 。 何 も 入力 せ 
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ず に リタ ー ン だ け 入 れる と プロ グラ ム は 停止 し ます 。 ま た 、TURBO Pascal 専用 の リ 
スタ ー に し ます か ら 、 拡 張子 を 省略 し た ら 自動 的 に .PAS が 付加 され る よう に し て お き 
ます 。 さ ら に 、 存 在 し な い フ ァイル の リス ト を と ろう と し た と き に は 、 い き な り リス 
ター が 停止 する よう な 「 失 礼 な こと 」 を せ ず 、 再 入力 で きる よう に し て お きま す 。 こ の 
手続 き は も う 何 度 も 使っ て いる の で 解説 の 必要 は な いで し ょ う 。 

42 一 64 行 の 手続 き Out_Dev は 出力 用 の ファ イル 名 に CON を 指定 する の か PRN を 
指定 する の か を 決め る も の で す 。67 一 80 行 の Line_Print は 印刷 する 行 が 何 行 目 か の 桁 
数 で ずれ た り し な いよ うに 調整 する た め の 手 続き で す 。 こ こ を も う 少 し きれ い に つ くる 
の な ら 、write パラ メー タ を 利用 する と よい で し ょ う 。 

83 93 行 の Skip_Page は 印刷 最大 行 数 MAXLINE まで 用 紙 1 ペー ジ に 印刷 し た と 
き の 処 理 で す 。 出 力 フ ァイル が プリ ンタ で あれ ば 用 紙 送 り の コー ド を 出力 し ます 。 こ の 
コー ド (特殊 文字 ) は 大 体 ど の メー カー の プリ ンタ で も 同じ で す が 、 特 殊 な 用 紙 送 り を 
実現 し た けれ ば 定数 FORM_FEED を 変え て や れ ば で きま す 。 

97 行 目 か ら 始 まる メイ ンプ ログ ラム も 説明 の 必要 は な さそ う で す 。 た だ 、99 行 目 の 
repeat に 対応 する 116 行 目 の until の 条件 は 絶対 に 成立 し ませ ん 。 つ まり 、 こ の 間 は 無 
限 ル ー プ に な っ て いま す 。 こ の ルー プ か ら 抜 ける に は 、 フ ァイル 名 入力 時 に リタ ー ン だ 
け を 押下 し て 25 行 目 で Halt に な る 場合 だ け で す 。 つ いで に 注意 し て お きま す が 、36 
行 目 の Delay が な いと 35 行 目 の メッ セー ジ は 一 瞬 し か 表示 され な い の で 見 えま せん 。 
あと 注意 すべ き 点 は 、 メ イン プロ グラ ム の 112 行 目 で 52 行 印刷 する た びに 改 ペ ー ジ し 
て MA る こと くら ぬ で す 。 

この リス ター を 改造 する と し た ら ど こ で し ょ うか 。 簡単 な も の で は ペー ジ の 頭 に ある 
表題 (ヘッ ディ ング ) を あな た の 専用 文字 に する こと で す 。 もう少し 難し くす る の な ら 、 
長い 行 の 折り 返し を きれ い に 処理 する こと が ある で し ょ う 。 も っ と や っ て みた けれ ば 、 
Pascal の 予約 語 は 強調 印字 きれ た り 、 そ こ だ け 字体 が 変わ る よう な リス ター も 考え ら 
れる で し ょ う 。 実 用 性 で は の 小文字 と 数 字 の 1 を プリ ンタ 上 で は っ きり 区 別 す る た 
め に 、L の 小文字 を 外字 で わか りや すい フォ ント に 作る こと も 考え られ ます 。 つ まり 、 
L の 小文字 を すべ て それ に 置き 換え て 印刷 する の で す 。 こ れ は プリ ンタ の マニ ュ ア ル で 
エス ケー プ ・ コ ー ド を 使用 し た 外字 印刷 の と ころ を 参考 に すれ ば で きる は ず で す 。 


プロ グラ ム の 関数 ・ 手 続き を 把握 する 
11 一 2m サ ププ ログ ラム を 一 覧 させ る 

TURBO Pascal で プロ グラ ム 開 発 を し て いる と 、 い ろ い ろ な プロ グラ ム ・ フ ァイル 
が た まっ て きま す 。 そ れ は それ で よい の で す が 、 本 数 が 多く な る と いっ た い ど こ に どん 
な 手続 き や 関数 が ある の か わか ら な く な り ま す 。 せ っ か く 苦 労 し て 作っ た 便利 な 手続 き 
や 関数 が どの ファ イル に 入っ て いる の か わか ら ず 、 記 憶 を 頼り に 再び 同じ プロ グラ ム を 
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作る 羽目 に な っ て し まい ます 。 こ れ で は 「 知 的 財産 」 の 管理 が で き て いな いと いう こと 
に な ます 。 

そこ で 、 そ の 管理 を パー ソナ ルコ ンピュータ に まかせ る た め 、TURBO Pascal で プ 
ログ ラム ファ イル の 中 に ある 関数 と 手続 き 、 つ まり サブ プ プ ログ ラム を 一 覧 表 に する プロ 
グラ ム を 開発 し て み ま し ょ う 。 プ ログ ラム の 名 前 と 関数 と 手続 き の 名 前 、 お よび その 引 
数 を 一 覧 表 に し て 印刷 し 。 ファ イル に と じ て お け ば 、 ど こ に 何 が ある の か すぐ に わか り 
ます 。 つ いで に メモ も 記入 し て 、 す ぐに 思い 出せ る よう に し て お け ば 万 全 で す 。 

この よう な プロ グラ ム を 作る 方 針 と し て は プロ グラ ム ・ フ ァイル を 読み 込ん を で 、 そ の 中 
か ら program 、procedure 、function の 綴り を 探し 出す と いう こと に な り ま す 。 し か し 、 
これ ら 繧 り の 大 文字 小文字 に と ら わ れ な いで 探す 必要 が あり ます 。 た と えば 、Program 
と 書い て あっ て も pRoGrAm と 書い て あっ て も 見 つけ ね ば な り ま せん 。 こ れ は 一 見 難 
し そう で す が 、TURBO Pascal に 備 そ られ て いる 文字 関数 UpCase を 利用 すれ ば 簡単 
に で きま す 。 こ の 関数 で 、 読 み 込 文字 列 を 次 々 に すべ て 大 文字 に 変換 し て PROGRAM 
を 探す よう に すれ ば よい の で す 。 こ の 点 に 気がつき さえ すれ ば それ ほど 面倒 な こと に は 
な ら な いで し ょ う 。 

ほか の 部 分 は 、 い まま で の トレ ー ニ ング を 応用 すれ ば 何と か な り ど うな 気 が す る と 思 
いま す 。 す で に TURBO Pascal で 長い プロ グラ ム を どう や っ て 開発 する か を 身 に 付け 
た ひと な ら 、 い き な り エディ タ に 向かっ て プロ グラ ム を 作り 出せ る で し ょ う 。 と に か く 
必要 と 思わ れる 手続 きか ら 作 り 始 め る の が コツ で す 。 こ う し て 作っ た の が リス ト 11-2 
の プロ グラ ム で す 。 


圏 リス ト 11-2 
1: program LTST11_2: 
2: uses Crt: 


は 

4: type 

5x Str14 = string[14] :{x:yyyyyY7y・ZZZ} 
に Str255 = string[255] : 

は fiLe_type = text: 

に 所 

9 ザ 吉 

10: in_filLe_name  : Str255: 

用 input_fiLe : fiLe_tYDPe: 

12: List_fiLe : text: 

5 人 Line_buff , 

14: first_word, 

415: SPword StY255: 

16: StChar : string[1] : 

上 Printer : booLean : 

kP・ 記 count ・ 1nteger : 

19: 十 ー ニ ニー ニー ニー ニー ニー ニニ ーー ニー ニニ ーー ニー ニーーー ニ ーーー ニー ニー ニー ニー ニー ニー ニニ ーーーーー ニ ーー ニー ニー ニー 一 + 
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2 : 
ジア 
た 
24 : 


CAP7 下 玉 77. さら な る 発展 の た め に 


procedure Get_FiLeName : 


ConSt 
BELL = #7: 
Yar 
Check booLean : 


procedure Printer_DK: 


ar 


Character : char: 


begin 


Printer:=falLse : 
write(? 手続 き ・ 関 数 リス ト を 印刷 し ます か ?[Y to yes ] ): 
ReadLn(Character) : 
if (Character=?Y?) or 
(Character=?y?) or 
(Character=〉 ン 〉) 
then 
begin 
Assign(List_fiLe ,〉PRN〉 ) : 
ReWrite(List_fiLe) : 
Pr1nter : =trUuG: 
end : 


procedure FiLe_Check: 


begin 


if Pos(?.〉 ,。 in_fiLe_name) = 0 then 
in_fiLe_name := Concat(in_fiLe_name , '.pas?): 
{t$ エ 1-} 
Assign(input_fiLe,in_fiLe_name) : 
Reset(input_fiLe) : 
{$ エ +} 
Check :=TUResuLt=0: 


end: 


begin 


Check :=faLse: 
WriteLn() う ): 


repeat 
in_fiLe_name:=〉?: 
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70: 
まい 
1 
が 
74: 
75: 
14 
1 
78: 
79: 
80 : 
81 : 
82 : 
83: 
84 : 
85: 
86 : 
87: 
88: 
89 : 
90 : 
91 : 
92 : 
93: 
94 : 
95: 
96 : 
97: 
98: 
99: 
100: 
101: 
102: 
103: 
104: 
105: 
106: 
107: 
108: 
109: 
110: 
衝 衝 
を 人 
113: 
114: 
ます も < 
116: 
117: 
118: 


WriteLn : 
WriteLn : 
Write() リ スト を 取り た い フ ァイル 名 を 指定 し て くだ さい 。: 
ReadLn(in_fiLe_name) : 
if (in fiLe_name=?) ) then HaLt 
eLse 
begin 
FiLe_Check: 
1f not Check 
then 
WriteLn() その ファ イル は 存在 し ませ ん 。 ,BELL) 
eLse 
begin 
Printer_DK: 
end : 
end : 
untiL Check: 


end: 


procedure Print_TitLe: 


begin 


WriteLn() う ): 
WriteLn ( ) *k 米 玉 玉 玉 米 米 玉 LIST 玉 来 来 玉 玉 玉 玉 玉 ? )・ 
WriteLn() う ): 
WriteLn(in_fiLe_name,) の 手続 き ・ 関 数 り : 
WriteLn() う ): 
1f printer 
then 
begin 
WriteLn(List_fiLe,) 〉): 
WriteLn(L1st_f1TLe , ネネ 玉 玉 玉 玉 末 LTST ** 玉 玉 玉 玉 玉 2)・: 
WriteLn(List_fiLe,) )): 
WriteLn(List_fiLe,in fiLe_name,〉 の 手続 き ・ 関 数 り : 
WriteLn(List_fiLe,〉 〉): 
end : 


end : 


function Char_UpCase : Str255: 


Ya 


UpWord *~ 8 も 255 : 
T : 1nteger : 
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1 せ 9: begin 


120 : UpWord:=)): 

4 for 1T:=1 to Length(first_word) do 

122:: begin 8 

信 32 StChar := Copy(first_word,T,1) : 

124 : UpWord :=Concat(Upword,UpCase(StChar[1] ) ) : 

125 : end : 

126: Char_UpCase : =UpWord : 

人 end : 

128: 

129.: て ーーーーーーーーーー エ ニニ ニニ ーー ニーーー + 

130 : 

131: procedure Get_FirstWord: 

8 の: 

198: Yar 

134 : Pass : booLean : 

35: Character  : char: 1 
136 : 
137: begin 1 
138: First_word:=〉!: ] 
139 : Count : =1 : 「 
140 : Pass : = も rue : ] 
141 : 「 
142 : whiLe (Pass) and ( count<=Length(Line_buff) ) do 

143: begin ! 
144: StChar := Copy(Line_buff , count,1) : 「 
145: Character:= StChar [1] : 

146 : if ( (Character>=?0〉 ) and (Character<=〉9〉) ) or 

147: ( (Character>=?A〉 ) and (Character< く =〉Z〉) ) or 

148: ( (Character>=?a? ) and (Character<=〉z〉) ) or 

149: ( Character=〉_〉) or ( Character=?{〉 ) 

150 : then 

151 : first_word:=Concat(first_word,Character ) 

152 : eLse 

153: begin 

154 : if (Length(first_word)>0) or (Character=〉{〉 ) 

155・ then Pass:=faLse: 

156 : end : 

57 : count : =count+1 : 

158 : end : 

159 : 

160 : end : 

161 : 

員 議 紹 K に 電 Paeta ら ーー ニ ー デ ーー ニー ニニ ユー + 

163: 

164: procedure Get_PF_Name: 

165: 

166 : Yar 


才 ) Character  : char: 


76 用 


168: 
169: 
170: 
放す 4 
2: 
47 語 4 
174: 
7 も 
の 
1 
178: 
179: 
180 : 
181 : 
2 
183: 
184 : 
185 : 
186 : 
は 7 
188: 
189 : 
190 : 
191 : 
192 : 
193: 
194 : 
195 : 
196: 
197 : 
198: 
199: 
200 : 
201 : 
202: 
203: 
204 : 
205: 
206 : 
207 : 
208: 
209: 
210: 
211: 
な 12・ 
2 は す 3* 
214 : 
215: 
216: 
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begin 


repeat 
StChar := Copy(Line_buff , count,1) : 
Character:= StChar [1] : 
1f Character='? (? 
then 
begin 


repeat 
Write(Character) : 
1f printer 
then Write(List_fiLle ,Character) : 
Count : =Coumt+1 : 
if count>Length(Line_buff ) 
then 
begin 
Write(?》 ): 
1f printer 
then Write(List_fiLe,?〉) : 
ReadLn(input_fiLe ,Line_buff) : 
Count : =1 : 
end : 
StChar := Copy(Line_buff , count ,1) : 
Character:= StChar [1] : 
untiL. Character=〉 )  : 


end: 
Write(Character) : 
1f printer 
then Write(List_fiLe ,Character) : 
count : =count+1 : 
if count>Length(Line_buFff ) 
then 
begin 
Write(?2): 
1f printer 
then Write(List_fiLe,〉〉 ) : 
ReadLn(input_fiLe ,Line_buf) : 
Count : =1 : 
end : 
unti1L. Character=?:? ェ 


end : 
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2 連 バ の Ye 1 

218: Get_FiLeName: 

219: 

220: repeat 

が Print_TitLe : 

アウ ア 人 

223: repeat 

224 : ReadLn(input_fiLe ,Line_buff) : 
の 225: Get_FirstWord: 

226 : SPword :=Char_UpCase: 

297: if (SPword=?PRUGRAM〉 ) OF 
228 : (SPword=〉PROCEDURE〉) or 
229 : (SPword=:FUNCTION' ) 

230 : then 

231 : begin 

292・ WriteLn() う ): 

998: Write(first_word,′ = 〉): 
234 : 1f printer 

235 : then 

236 : begin 

237: WriteLn(List_fiLe,) 〉): 
238: 。 Write(List_fiLe ,first_word,。′ = リ ): 
239 : end : 

240: Get_PF_Name: 

241 : end : 

242: untiL, eof(input_fiLe) : 

243: 

244 : CLose(input_fiLe) : 

245 : Get_FiLeName: 

246 : 

247 : untiL. TRUE = FALSE: 

248: end. 


まず 一 覧 表 を 作る 対象 と な る プロ グラ ム ・ フ ァイル の 名 前 と それ が 存在 する か どう か 
を 調べ な けれ ば な り ま せん 。 そ こ で 、21 行 目 の よう な Get_FileName と いう 手続 きか 
ら ま ず 作 り 始 め ま す 。 も し も ファ イル が 存在 し な いと き に は 和 告 プ ブザー を 鳴ら し た い の 
で 、 定 数 と し て BEPLL を 定義 し て お きま す 。 そ し て 、 存 在 す る と き に は TRUE に な る 
論理 変数 Check も 定義 し て お きま す 。 

ここ まで きた と ころ で 、 リ スト を プリ ンタ と 画面 か の いずれ に 出力 すべ きか を 決め て 
お か ね ば な ら な いこ と に 気がつき まし た の で 、30 行 目 で 手続 き Printer_OK の 記述 に 入 
り ま す 。48 行 目 まで は 出力 装置 と し て プリ ンタ を 指定 する か どう か だ け で すか ら 、 暴 
し いと ころ は 何 も な いで し ょ う 。46 行 目 で printer を TRUE に し て お きま す 。 

ここ で 今度 は ファ イル の 存在 の 有無 を 調べ る 手続 き が 必要 な こと に 気がつき まし た 。 
そこ で 51 行 目 の よう に ファ イル の 存在 の 判定 を する 手続 き File-Check に 取り か か り ま 
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す 。 こ の 手続 き で は プロ グラ ム ・ フ ァイル の 拡張 子 が 省略 され た と き に は 自動 的 に .pas 
を 付加 する よう に し て いま す 。64 行 目 か ら Get_FileName 本 体 の 作成 が 始ま り ま す 。88 
行 目 まで の プロ グラ ム は わか りや すい の で 、 行 を 追う だ け で 十分 理解 で きる で し ょ う 。 

92 行 目 の 手続 き Print_Title は 一 覧 表 の ヘッ ディ ング 用 の も の で す 。 内容 は 画面 表示 
し て プリ ンタ に 出力 し て よい の な ら 同 じ も の を 印刷 し ます 。 こ こま で くれ ば いよ いよ 
ファ イル の 中 か ら program 、procedure 、fanction を 探す 手続 き を 作る 段階 に な り ま 
す 。 そ の 前 に 上 で 述べ た すべ て の 文字 列 を 大 文字 に 変え る 手続 き を 作っ て お きま し ょ う 。 

113 行 目 の 手続 き Char_UpCase は 文字 列 frst-word を すべ て 大 文字 に 置き 換え ます 。 
標準 関数 UpCase は 1 文字 を 大 文字 に 変え る だ け で すか ら 、 こ れ を 繰り 返し 使っ て 文 
字 列 全体 を 大 文字 に 置き 換え る の で す 。 こ の 手続 き の 内 容 も と て も 簡単 で す 。121 行 目 
の for 文 で fst_word の 中 に 含ま れる 英字 を 1 個 ず つ 大 文字 に し て いま す 。 

program な ど は いずれ に し て も Pascal 文 の 先頭 に ある は ず で すか ら 、 各 行 の 先頭 の 
単語 を 拾い 出す 手続 き Get_FirstWord を 131 行 目 か ら 作 り ま す 。142 - 158 行 目 で 行 
の 先頭 か ら 文 字 が 0 一 9、A 一 ZZ 、&a 一 2 か ある い は _-( ア ンダ ー ス コア ) の よう に 有効 
な 名 前 を 構成 する も の で ある 限り fst_-word に 拾っ て いき ます 。 こ の while 文 を 抜け た 
と き に は Pascal の 単語 が Hrst-word の 中 に 入っ て いる と いう わけ で す 。 

最後 に 残っ た 「 難 物 」 の 引数 を 出力 する 手続 き Get_PF_Name を 164 行 目 か ら 作 り ま 
す 。171 一 194 行 目 で 引数 の 並び が お わる 右 括弧 を 見 つけ る まで ( ) の 間 に あ る 引数 を 
次 々 に 出力 し ます 。 

ここ まで 手続 き が で き て し まえ ば 、 あ と は サブ プロ グラ ム 名 の 出力 だ け で すか ら 、216 
行 目 か ら メ イン プロ グラ ム を 書き 始め ます 。 ま ず 、217 、8 行 目 で 画面 を クリ ア し て か 
ら 一 覧 表 を 作り た い プ ログ ラム ファ イル 名 を 入力 し ます 。220 - 247 行 目 の 間 は TRUE 
が EALSE に な る まで 続け る の で 、 無 限 に 繰り 返し ます 。 

223 一 242 行 目 の 繰り 返し は 入力 され た プロ グラ ム ・ フ ァイル の EOE( エ ンド ・ オ 
プ ブ ・ フ ァイル ) マー ク 、 つ まり ^Z を 読み 込む まで に PROGRAM 、PROCEDURE 、 
FUNCTION と いう キー ワー ド が 行 の 先頭 に ある た びに 、 そ れ を 一 覧 表 と し て 231 一 
241 行 目 で 出力 し ます 。 

すべ て の 行 の 処理 が お わる と 244 行 目 で プロ グラ ム ・ フ ァイル を クロ ー ズ し 、245 行 
目 で 再び 次 に 一 覧 表 を 作り た い プ ログ ラム ・ フ ァイル 名 を 入力 し て 同じ 処理 を 続行 し ま 
す 。 こ うし て みる と 、247 行 目 の 条件 は 絶対 に 成立 し な い の で 無限 に 繰り 返す こと に な 
り ま す が 、 実 は Get_FileName 手続 き の 中 の 74 行 目 で 入力 ファ イル を 指定 せ ず リタ ー 
ン キ ー だ け を 押下 する と Halt で プロ グラ ム 実 行 を 終了 し ます 。 
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COMMAND.COM を 参照 する 


11 一 3m 環 境 変数 の 参照 

MS-DOS で よく 「 環 境 」 と いう 言葉 が 使わ れ ま す が 、 実 際 に は 聞い た こと が あっ て 
も どう 使っ た ら よ い の か わか ら な い の で は あり ませ ん か 。 こ こ で は それ を どう すれ ば 活 
用 で きる の か プロ グラ ム を 作っ て みる こと に し ます 。TURBO Pascal ver5.0 以降 で は 
EnvCount 、EnvStr な どの 関数 が 用 意 き され て いま す 。 し か し 、 こ こ で は わざ わざ それ 
を 使用 し な いで TURBO Pascal で プロ グラ ミン グ し て いま す 。 

これ ら の 関数 を その まま 利用 で きる の で あれ ば わざ わざ こん な こと は 必要 な い の で す 
が 、 引 数 を 標準 の も の か ら 変 えた か っ た り 、 ち ょ っ と 変更 し た いと き に は 環境 変数 の 参 
照 を どう すれ ば よい の か が 必要 に な り ま す 。 こ こ で 紹介 する プロ グラ ム は あく まで も 環 
境 変数 の 参照 の 出発 点 で すか ら 、 ぜ ひい ろ い ろ な 改造 に チャ レン ジ し て みて くだ さい 。 
この プロ グラ ム は 、 科 単に いう と 現在 使用 し て いる コマ ンド プロ セッ サ 名 (普通 は 
COMMAND.COM で す ) を 表示 し た 後 、 を の コマ ンド プロ セッ サ を 起動 し て ディ レク 
トリ の 簡易 表示 で ある “DIR /W” コマ ンド を 実行 し ます 。 そ し て この 後 、 環 境 変数 
“PATH" の 内 容 を 表示 し ます 。 


圏 リス ト 11-3 
: program LTST11_3: 


: {t$M 16384, 0, 0+} 
: uSes dos, LTST11_4: 


: Var 
mySt : Str1ing: 


oO の の の 必 の 〇 は 


9: begin 

40ccnta は マシ ンド デ ロ セ ッ み サ を 探す - う 

11: myst := ?COMSPEC? : 

12: WriteLn(?The command processor is: ', getenv(myst) ) : 


14:  { シェ ル に 抜け て dir を 実行 } 

15: 。SwapVectorSs: 

16: Exec(getenv(myst) ,'/C DIR /W〉): 

17: SwapVectorS : 

18: WriteLn(?DosError is( no error is 0 ):',DosError) : 


20: {て コマ ンド の バス を 表示 } 

電 介 my8t := ^PATH7: 

レア 人 WriteLn(?The command path is: ', getenv(myst) ) : 
23: end . 


リス ト 11-3 を 見 て くだ さい 。 こ の リス ト は 後 で 説明 する リス ト 11-4 の ユニ ッ ト を 使 
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用 し て いま す 。11 、12 行 目 で 現在 使用 し て いる コマ ンド プロ セッ サ を 表示 し て いま す 。 
MS-DOS 起動 時 に CONFIG.SYS ファ イル で SHELL を 指定 し て いな けれ ば 、 こ こ で 
COMMAND.COM が 表示 され る は ず で す 。 

15 、17 行 目 は EXEO 手続 き を 使う と き の 定 石 で す 。SwapVectors 手続 き は Dos ユ 
ニッ ト に 用 意 さ れ て いる 手続 き で 、 こ れ を 実行 し て お か な いと Exec 手続 き で 起動 され 
た プロ セス が 現在 の 割り 込み ベク タ を 破壊 し て 林 走 する 可能 性 が あり ます 。 さ ら に 2 行 
目 の コ ン パ イラ 指令 で スタ ッ ク 領 域 を 確保 し て いま す 。Exec 手続 き は 起動 され る 子 プ 
ロ セ ス に よっ て は メモ リ が 不足 する 可能 性 が ある か ら で す 。 こ こ で は 16KB を スタ ッ ク 
と し て 確保 し 、 ヒ ー プ 領域 は まっ た く 確 保 し て いま せん 。 

16 行 目 で COMMAND.COM を 子 プ ロモ ス と し て 起動 し 、“DIR /W” を 実行 し て い 
ます 。“/C" は COMMAND.COM か ら 制 御 を 取り 戻す た め に 必要 で す 。 こ れ が な いと 
"EXIT” と 入力 され る まで コマ ンド プロ セッ サ が 実行 され た まま に な り ま す 。 も ちろ ん 、 
そう し だ た いこ と も よく あり ます か ら 、 そ の 場合 に は /C を 省略 し ます 。 な お 、 こ の パラ 
メー タ は COMMAND.COM 以外 の アプ リケーション に は 必要 あり ませ ん 。 

18 行 目 は EXEC 手続 き を 実行 し た 際 の エラ ー を 表示 し て いま す 。 本来 、 手 続き は 何 
も 値 を 返さ な い の で す が 、EXEC 手続 き は MS-DOS の ファ ンク ショ ン な の で 実行 する 
と .MS-DOS が 値 を 返し て きま す 。。 つ まり 。 エ ラニ ュー ド を 返し て くる わけ で す 。。 避 の 
エラ ー コ ー ド は 各 手 続き や 関数 毎 に 返す の で は な く 、“DosError” と いう DOS ユニ ッ ト 
に 定義 され た 変数 に 返さ れ ま す 。21 、22 行 目 で 現在 の “PATH" を 表示 し て いま す 。 

ぎっ と 眺め た だ け で は 難し いこ と は 何 も な い は ず で す 。 12 、 16 、 22 行 目 に ある Getenv 
関数 が この プロ グラ ム で 中 心 的 役割 を し て いる の で 、 こ の 関数 が 定義 きれ て いる ユニ ッ 
ト LIST11-4.PAS を 説明 し まし ょ う 。 


圏 リス ト 11-4 
を 制 も マル ま SE も は 4: 


interface 
uSeSs doS: 


function GetEnv(st : string) : string: 


oO ココ の の ロロ 必 の OO は 


9: impLementation 


11: function GetEnv(st : string) : string: 

12: const 

13: PrefixSegUfs = $2c: { PSP 内 の 環境 セグ メン ト ア ドレ ス の オフ セッ ト } 
14: var 

15: 。 tmpst  : 8tring: 

16: enVSseg : Word: 

7 YWE : 1nteger: 


212 C 互 AP7PERR 77. さら な る 発展 の た め に 


20: envseg := memw[PrefixSeg: PrefixSegDfs]: { PSP か ら セ グ メ ント 取得 } 


22: for i := 1 to Length(st) do 


23: st[i] := UpCase(st[i]): { 大 文字 に 変換 
24 : 
2 も 00: 


26: vwhiLe (mem[envseg : 1] <> 0O) do て 環境 文字 列 の 処理 } 
27: begin 


28 : tmpgt :=〉): 

29: GetEnV := リフ 5 

30 : 

誠 ま > whiLe (mem[envseg : 1] <> 0) do 

32 : begin 】 

33: tmpst := tmpst + UpCase(Chr(mem[envseg :1])): { 文字 の 結合 } 
34 : Tnc( ふ ) : 

35: end : 

36 : 

37: if (Pos( st, tmpst) = 1) then 

38: GetEnv := Copy(tmpst , Pos(”='〉 ,tmpst)+1 255) 
39 : eLse Tnc(1) : 

40: 

41 : Gend: 

42: end: { GetEnv } 

43: 

44: end. 


1 一 9 行 目 まで は ユニ ッ ト の 定石 で すか ら す ぐに 理解 で きる と 思い ます 。11 行か ら 
が Geteny 関数 の 本 体 で す 。 こ の 関数 は PSP(Program Segment Prefix) 内 の 環境 変数 
エリ ア の (セグメント ) アド レス を 参照 し て 内 容 を 読み と ろう と いう も の で す 。 

まず 、20 行 目 で PSP か ら 環 境 変数 が 保存 され て いる セグ メン ト ア ドレ ス を envseg 
と いう 変数 に セー ブ し て お きま す 。22 、23 行 目 で 引き 渡さ れ な た 文字 列 (参照 し た い 環 
境 変数 ) を 大 文字 に 変換 し ます 。25 行 目 以降 で 目的 の 環境 変数 を 探し て いま す 。31 一 
35 行 目 で 1 つの 環境 変数 を 探し て 大 文字 に 変換 し ます 。 

見 つか っ た 環境 変数 が 目的 の 環境 変数 か どう か を 判定 し て いる の が 37 行 目 で す 。 こ 
こ で 、 目 的 の 環境 変数 で ある こと が 判明 する と 次 の 38 行 目 で この 関数 の リタ ー ン 値 と 
し て 見 つか っ た 環境 変数 を セッ ト し て いま す 。 目的 の も の で な か っ た 場合 に は 39 行 目 
で ポイ ンタ i を 次 に 進め て いま す 。 

26 行 目 と 31 行 目 の WHILE 文 に 条件 0 を 使う の は 理由 が あり ます 。 環境 変数 に 限ら 
ず 、MS-DOS で 使用 する 文字 列 は ASCIZ 文字 列 を 使っ て いる た めで す 。ASOCIZ で は 以 
前 に も 解説 し た よう に 、ASCII 文字 の 集合 で ある 文字 列 の 終り を 認識 する の に ASCII 
コード の 0(NULL) を 付加 し て 行っ て いる か ら で す 。 
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TURBO Pascal で は 文字 列 の 長 さ を 認識 する た め に 、 文 字 列 の 長き さき を 表す 1 バイ 
ト を 先頭 に つけ て 管理 し て いま す が 、ASOC1Z で は 異な っ て いる の で 注意 が 必要 で す 。 
TURBO Pascal の 文字 列 管理 方 法 で は 、 長 さ を 表 す バ イト 数 が 1 バイ ト な の で 扱え る 長 
さ に は 制限 が あり ます が 、ASOTIZ 文字 列 で は 制限 が ほとん ど あ り ま せん 。 こ こ で 「 ま っ 
た く 」 で は な く 「 ほ と ん ど 」 と し た の は 、 管 理 方 法 と し て は 制限 を 受け な い の で す が 、 
セグ メン ト な ど ハ ー ド ウェ ア 的 に 制限 を 受け て し まう た めで す 。 

この 節 の 最初 で 断っ て お きま し た が 、 こ こ で 紹介 し た GetEmnv 関数 は TURBO Pascal 
の Dos ユニ ッ ト の 中 に 標準 で 用 意 き れ て いま す 。 し か し 、 標 準 で 用 意 き され て いる 手続 
き の 中 で いっ た い ど う や っ て マニ ュ ア ル に 記載 し て ある 機能 を 実現 し て いる の か は 外 か 
ら で は わか り ま せん 。 も ちろ ん 、 逆 アセ ン ブ ル ま で や る ほど の 根性 (?) を 入れ れ ば 別 で 
す が 、 既 存 の 手続 き や 知 識 を 総合 すれ ば 同じ も の が 簡単 に 実現 で きる こと が お わか り い 
放 吉 けた で し ム あ 。 


ハー ドコ ピー ツー ル の 作成 
11-4m グ ラフ ィ ッ ク 画 面 の 印刷 

TURBO Pascalver5.0 以上 で は 標準 で BGI が 用 意 さ れ 、 簡 単に グラ フィ ックス が 表 
示 で きる よう に な り ま し た 。 今 まで は 自作 の ライ ブラ リ か BASIC の ROM ルー チン を 
利用 する な ど め ん どう な こと だ っ た の で す が 、 一 挙 に 楽に な っ た の で す 。 

し か し 、 せ っ か くく 美しい 画面 表示 の プロ グラ ム を 作成 し て も 、 こ の 表示 を 印刷 する 
機能 が 標準 で は 用 意 き れ て いな い の は 片手 落ち で す 。TURBO Pascal を 日 本 語 化 し た 
MSA 社 で は 、 こ の こと に 気付 いて いて BGIUTILS.ARC と いう 圧縮 ファ イル の 中 に ア 
セン ブラ で 記述 し た プロ グラ ム を 付け て くれ て いま す (Thanks MSA ! ) 。 


一 リ スト 11-5 
: unit LTST11_5: 


・ interface 
: Uses printer, Graph: 


: Procedure GraphPrint(x1 71, x2, 72 : integer) : 


oO ココ の の 必 の DO は 


9: impLementation 
11: Uses Dos: 
13: procedure OutputByte(SendData : byte) : 


14 し ブリ ンク で の バイト 負 力 『 


15: var 
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16: reg : reg1SterS: 
1 

18: begin {OutputByte} 
19: repeat 


20: reg.ah := $12: 

も 。 Tntr($1a, reg) 

22: 。 until. (reg.ah and 1) = 1:{ デー タ 出 力 可能 まで } 
23) 

24: reg.ah := $11: 

25: reg・aL := SendData: 


26: Tntr($1a, reg) : 

27: end: {OutputByte} 

レン: れ 

の 9 

30: Procedure GraphPrint(x1, 71, x2, 72 : integer): 
31: Var 

38 BackGroundCoLor , 

33: MaxWidth , 

34 : MaxLength : word: 

35: MaxwidthString : string[4] : 


36 : 

37: PrintPattern : byte: 

38・ Count , 

に だ Row, CoLumn, Pixel. : integer : 

40: 

41:  VPT : ViewPortTYyDe: 

42 : 

43: begin 

44: BackGroundCoLor := GetBkCoLor: { バッ ク グ ラウ ンド カラ ー を セー ブ } 

45: Maxwidth := x2 -x1: { 有効 幅 } 

46: MaxLength := (y2 - y1) div 8: {有効 長 } | 
47: 
48: str(MaxWidth+1 :04 ,MaxWidthString): { 有効 幅 を 文字 に 変換 } 
49: for count := 1 to 4 do { スペ ー ス を 0 に 変換 } | 
50: if MaxWidthString[count] = 〉 〉 then ! 
51 : MaxWidthString [count] := 0!: 
52: 
53: GetViewSettings (vpt) : SecYtoe3t242 こ ニー 


54: SetViewPort(0,0,GetMaxX,GetMaxY,faLse): { イ ビュ ー ポ ボー ト を セッ ト } 
55: 

56 : Write(LST, Chr(27) , ?T12?): { 改行 モー ド を 12/120 イ ンチ に セッ ト } 
の 3 Write(LST,・Chr(27) , 7D!): { コピ ー モ ー ド に セッ ト } 


58 : 

59: for row := O to MaxLength do 

60: begin 

61 : Write(LST, Chr(27) ,?S: ,MaxWidthString) :t8 ドッ ト 列 対応 グラ フィ ッ ク } 
62: 

63: for coLumn :=x1 to x2 do て { 横 1 列 分 の イメ ー ジ を 作成 } 


64 : begin 
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65: PrintPattern := 0: 

66 : for pixeL :=0to7do { 縦 8 ド ッ ト 分 の デー タ を 作成 } 
67 : if ((y1 + row *8 + pixeL) <= 72) and 

68: GetPixeL(coLumn, 1 +row *8 +pixeL) く > BackGroundCoLor) then 
69: case pixeL of { 画面 と ヘッ ド と を 対応 きせ る } 

70x 0 : PrintPattern := PrintPattern + $0O1: 

が 1 : PrintPattern := PrintPattern + $02: 

人 ゲ の 2 : PrintPattern := PrintPattern + $04: 

73: 3 : PrintPattern := PrintPattern + $08: 

74: 4 : PrintPattern := PrintPattern + $10: 

2 5 : PrintPattern := PrintPattern + $20: 

76: 6 : PrintPattern := PrintPattern + $40: 

本 党 > 7 : PrintPattern := PrintPattern + $80: 

78: end: { of case } 

79: OUutPutByte(PrintPattern) : 

80 : end: { of for } 

8 は 1: WriteLn(LST) : 

82: end: { of for } 

83: 

84: WriteLn(LST,。 Chr(27).2A2)。 て 1/6 イ ンチ 改行 モー ド セ ッ ト } 
85: WatetLST。eChr(27) 。2M2): 。 よ 、 灯 テイ デモ ーー ド セ ッ ト ボボ 

86 : SetViewPort(VPT .x1 ,VPT .y1,VPT1] .x2,VPT.y2,VPT.cLip) : 

87: {ピュ ー ポ ー ト リセ ッ ト } 

88: end: of graphprint 

89: 


90: end.{ of unit } 


MSA 社 で は この プロ グラ ム を ユー ザー が 組み 込ん で 自由 に 使用 し て も か まわ な いと 
いっ て いま す が 、TURBO Pascal し か 知ら な い ぃ ユー ザー が この よう な アセ ンプ ブラ で 記 
述 さ れ た プロ グラ ム を 使う こと は 大 変 難し いと いえ ます 。 そ れ に ちょ っ と 変え て みよ う 
か と 思っ て も アセ ンプ ラ の 知識 が な いと どう し て よい の か わか り ま せん 。 

ちょ っ と 腕 の ある (うる さい ?) ひと な ら ア セン プラ な ど な ん と も 思わ ず 楽 々 プロ グラ 
ミン グ で きる の で し ょ う が 、 後 で 改造 し た りす る と き の た め に も 高級 言語 で 記述 で きる 
も の な ら そ うし た いと ころ で す 。 

そこ で 、 こ こ で は TURBO Pascal で グラ フィ ッ ク 画 面 を 印刷 する プロ グラ ム を 作っ 
で みよ うと いう の で す 。 

リス ト 11-5 で は 他 の プロ グラ ム に 人 簡単 に 組み 込む こと が で きる よう に ユニ ッ ト と し 
て 記述 し まし た 。 ハ ー ド コピ ー を 行なう 手続 き が GraphPrint 手続 き で す 。 こ の 手続 き 
は 印刷 する 座標 を 指定 する こと が で きる た め 、 様 々 な 使い 道 が ある と 思い ます 。 


圏 リ スト 11-6 
1: program LTST11_6: 


補 き 
3: Uses graph, LIST11_5: 
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四 

5: 

6: graphdriver , graphmode, radius : 1nteger : 
1 

8 


: begin 
9: graphdriver := detect: { 自動 検出 し た ドラ イ バ +} 
10: TnitGraph(graphdriver, graphmode,”): て t グラ フィ ッ ク 画 面 の 初期 化 } 


12: RectangLe(0,0,GetMaxX, GetMaxY) : { 枠 を か く } 

38: 

14: for radius := 1 to 10 do { 中 心から 円 を か く } 

15: arc(GetMaxX div 2, GetMaxY div 2, 0, 360, radius *(GetMaxY div 10)): 
16: 」 


7 OutTextXY(10, 10, This is HorizontalL, Text to heLp test GraphPrint'〉) : 


19: SetTextStyLe(sansSerifFont ,vertdir,2):{t 下 か ら 上 へ } 
の 0 OutTextXY(50,50, VerticaL, Text?〉 ) : 


22: Graphprint(0,0,GetMaxX, GetMaxY) : て - ハ ー ド コピ ー を と る } 


24 : CLoseGraph : 
25: end. 


で は 、 プ ログ ラム の 内 容 を 見 て み ま し ょ う 。9 行 目 ま で は ユニ ッ ト の 定石 で ある お 決 
まり の 記述 で す 。13 行 一 27 行 目 は プリ ンタ に 1 バイ ト を 出力 する た め の 手 続き で す 。 
プリ ンタ に 文字 を 出力 する に は Pascal の 標準 出力 手続 き で ある WriteLn を 使用 し て 、 
出力 装置 に プリ ンタ を 指定 する の が 普通 で す 。 つ まり 、 


WriteLn(LST,*****) ・ 


の よう に する の が 一 般 的 な の で す 。 わ ざわ ざこ の 手続 き を 作っ た の に は 理由 が あり ま 
す 。 私 も 初め は この よう に Peascal の WriteLn 文 を 使用 し て プリ ンタ に デー タ を 出力 し 
て いた の で す が 、 何 度 試 し て も うま く 出 力 さ れ な か っ た の で す 。 始 めのう ち は プ ログ ラ 
ム の バグ だ と 思っ て 他 の 部 分 を デバ ッ グ し て いた の で す が 、 デ バッ グ の 結果 他 の 部 分 は 
間違っ て いな いと いう こと が 判明 し まし た 。 そ こ で 、 思 い 切 っ て プリ ンタ BIOS を 使っ 
て この 手続 き を 作り 、 実 行 し て みた と ころ うま くい っ た の で 、 こ の よう に な っ た と ぃ い 3 
わけ で す 。 こ の よう に 自分 の プロ グラ ム 以 外 の 原因 で プロ グラ ム が 正常 に 動作 し な いと 
き は ホ ト ホ ト 困 っ て し まい ます 。 

さき て 、 グ チ は この くら い に し て 説明 を 続け る こと に し ます 。 30 行 目 か ら が GraphPrint 
の 本 体 に あたり ます 。 こ の プロ グラ ム は BGI を 使っ て いる の で プリ ンタ 関係 の 所 だ け 
を 修正 すれ ば 他 の マシ ン に も 対応 で きる は ず で す 。 ま た 、 タ ー ゲ ッ ト プ リン タ は NEC 
の PR シリ ー ズ で す 。 こ れる も 制御 コー ド を 変更 する こと で 他 の プリ ンタ を 使用 する こと 
が 可能 で す 。 
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プリ ンタ を 購入 する と 立派 な 分 厚い マニ ュ ア ル が つい て きま す 。 し か し 、 標 準 的 な 使 
用 し か し な い ユ ー ザ ー は 最初 の 「 パ パソ コン 機種 別 接続 法 」 あ た り を 読む だ け で 、 後 の 大 
部 分 は 読ま な いで し ょ う 。 し か し 、 こ こ で 本 棚 に 投げ 込ん で お いた プリ ンタ の マニ ュ ア 
ル が が ぜん 活躍 し ます 。 も し も 、 こ の ユニ ッ ト を NEC の PR シリ ー ズ 以外 に 移植 し た 
い の な ら 、 マ ニュ アル の 制御 コー ド の と ころ を 参照 する 必要 が あり ます 。 機種 に よっ て 
は 、 グ ラフ ィ ッ クモ ー ド を 持っ て いな いも の も ある の で 注意 し て くだ さい 。 

さて 、44 行 目 で 現在 の バッ ク グ ラウ ンド カラ ー を セー ブ し て いま す 。45 、46 行 目 で 
引数 と し て 渡さ れ た 座標 を 計算 し て 、 有 効 な 幅 や 長き さき を 求め ます 。49 一 51 行 目 で 有効 
幅 を 文字 列 に 変換 し ます 。 こ れ は プリ ンタ に 送る 制御 コー ド が 文字 の 形式 だ っ た た め 
に 、 こ の よう に 面倒 な 変換 を せ ざ る を な り ま せん 。 こ の 変換 で は 始め に 有効 幅 を Str 手 
続き で 数 字 か ら 文 字 に 変換 し ます 。 こ の まま で は プリ ンタ へ 送る 制御 コー ド の 形式 に 
あっ て いな い の で 、 空 白 (スペ ー ス コー ド ) を さがし て 0 に 変換 し ます 。 

53 行 目 で 現在 の ビュ ー ポ ボート を セー ブレ し 、54 行 目 で 新しい ビュ ー ポ ー ト を セッ ト し 
ます 。56 、57 行 目 で プリ ンタ に 制御 コー ド を 送り ます 。59 一 82 行 目 で プリ ンタ を グ 
ラフ ィ ッ クモ ー ド に する 制御 コー ド を 送り 、 画 面 の デー タ を プリ ンタ の デー タ に 変換 し 
て 印刷 し ます 。61 行 目 で プリ ンタ を グラ フィ ッ ク モ ー ド に セッ ト し て いま す 。63 一 82 
行 目 で 1 行 分 の 印刷 を 行なっ て いま す 。65 行 目 で これ か ら 印 刷 す る 変数 を 初期 化し ま 
す 。67 - 78 行 目 は 画面 デー タ を プリ ンタ ヘッ ド の イメ ー ジ に 変換 する 部 分 で す 。 こ の 
変換 の メイ ン と な る の が 69 - 78 行 目 まで の case 文 で す 。 

79 行 目 が 先ほど の 苦労 し た な プリ ンタ へ の デー タ 転 送 の 部 分 で す 。84 、85 行 目 は プリ 
ンタ を 標準 の モー ド に 戻し て お くだ た め に 必要 で す 。86 行 目 で セー ブ プ し て お いた だ た ビ ュー 
ポー ト を 元 に 戻し ます 。 こ の よう を な 後 始末 を し て お か な いと 、 こ の ユニ ッ ト を 利用 し て 
いる プロ グラ ム の 中 で 他 に も プリ ンタ 出力 が ある と お か し な こと が お こり か ね ませ ん 。 
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この ユニ ッ ト を 試し て みる た め に 作っ た の が 、 リ スト 11-6 で す 。 こ の デモ プロ グラ 
ム は 枠 を 描い て 、 そ の 中 に 円 を 描い た 画面 を ハー ドコ ピー する 単純 きわ まり な いも の で . 
す が 、 一 応 こ の プロ グラ ム の 内 容 も 説明 し て お きま し ょ う 。 

9 、10 行 目 は BGI を 使う と き の 定 石 で すか ら 必ず この よう に し て くだ さい 。12 行 目 
で 画面 に 枠 を 描い て いま す 。14 、15 行 目 で 画面 に 同心 円 を 描き ます 。17 - 20 行 目 で 
今度 は 文字 を 書い て み ま す 。17 行 目 で 普通 に (10,10) の 座標 か ら 文字 を 書い て いる の で 
す が 、20 行 目 で 文字 を 書く と き に は ちょ っ と 細工 を し て み ま し た 。19 行 目 が その 細工 
で す 。 こ の 手続 き で 下 か ら 上 に 表示 する よう に し て ある の で す 。 こ こま で で 画面 に 表示 
する の を や め て 、 そ ろ そ ろ ハ ー ド コピ ー を と っ て みた だ たく な っ た の で 、 次 の 22 行 で ハー 
ドコ ピー を と る こと に し まし た 。24 行 は BGI を 使い 終わ っ た と き に 実行 する 定石 で す 
か ら 、 先 ほど の 9 、10 行 目 と これ を ペア に し て 忘れ ず に 必ず 実行 し て で おく よう に し て 
くだ さい 。 

これ で 、 ハ ー ド コピ ー が と れる プロ グラ ム を 作る の が すご く 楽 に な っ た と 思い ます 
し 、OG( コ ンピュータ グラ フィ ックス ) を や る 人 に は 欲し か っ た ツー ル で し ょ う 。 こ の 
プロ グラ ム を 生か す も 殺 す も あ な た が 描く 画面 表示 次 第 で す 。 ハ ー ド コピ ー と し て 残し 
て お く の に ふさ わし い 羨 術 作 品 (?7) を どん どん 作っ て 紙 に 印刷 し て み ま し ょ う 。 
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11-5m テ デー タデ ィ ス ク の プー トメ ッ セ ー ジ 表示 

パソ コン を 立ち 上 げ る と き に 、 シ ステ ム デ ィ ス ク と 間違え て 、 デ ー タ ディ スク を フ 
ロッ ピー ディ スク ドラ イブ に 入れ て し まっ だ たこ と は だ れ に も ある 経験 で す 。。 こ の と き の 
“ピー” と いう やかましい 音 は いや な も の で す 。 こ の 音 が 鳴 出す と キー 入力 も 受け 付け 
な く な り ま す 。 

この 音 を 止め る に は リセ ッ ト キ ー を 押す し か あり ませ ん 。 夜 中 に パソ コン を 使っ て 
いる と き に (パソ コン マニ ア が 本 格 的 に 活動 する の は ぼく も 含め て 大 抵 こ の 時 間 で す よ 
ね ! ) この 音 が 鳴っ て 、 周 り に 迷惑 を か ける の は 困っ た も の で す 。 そ れ で な く て も 役 に 
立つ の か 立た な ない の か わか ら な いも の に 多額 の 投資 (ムダ 遣い 7) を し て いる ぼく ら マ ニ 
ア は いつ も 家族 に 白い 目 で 見 られ て いる だ け に 、 な ん と か この 音 を や め さ せ た いと 思っ 
だ めで *。 

フロ ッ ピ ー デ ィ ス ク か ら パ ソコ ン を 起動 する と 、 ど ん な 順序 で も の ご と が 進行 する の 
で 人 ほ ま う が の と か ら 才 を で そ あみ ま 本 : 

電源 が 投入 され る か リセ ッ ト ボ タン が 押さ れる と 、 ま ず パ ソコ ン 内 部 の メモ リ が 初期 
化 き れ ま す 。 そ し て 、 そ の と き に 挿入 され て いる フロ ッ ピ ー デ ィ ス ク 上 の 特定 の 場所 か 
ら デ ー タ が プロ グラ ム と し て 読み 込ま れ ま す 。 次 に その プロ グラ ム に 制御 を 移し て 本 格 
的 に パソ コン が 立ち 上 が る と いう 手順 が 自動 的 に 行わ れ ま す 。 

この 手順 の 中 で 、「 フ ロッ ピー ディ スク 上 の 特定 の 場所 」 か ら 読 み 込ん だ プロ グラ ム 
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を パパ ソコ ン が 解析 し た ら 、 シ ステ ム と し て 実行 で き な い も の な の で 、 あ の や か まし い 音 
を 出し て 警告 し て いた の で す 。 こ の プロ グラ ム は 現在 の 番地 に ジャ ンプ する と いう 無限 
ジャ ンプ も 行なっ て いた の で 、 キー 入力 も で き な く な る の で す 。 

そこ で 、 こ の 立ち 上 げ 時 に 読み 込ま れる プロ グラ ム を 何と か し て し まえ くば 音 を 出さ 
な いよ うに 変え られ る の で は な いか と 考え られ ます 。 つ まり 、 こ の プロ グラ ム を そっ く 
り 入れ 換え て 、 も っ と 使い や すく 、 し か も や か まし く な いも の に 改造 し よう と いう わけ 
4 

具体 的 に は 、 立 ち 上 げ 時 に シス テム ディ スク 以外 が 挿入 きれ て いる と き に は 指定 され 
た メッ セー ジ を 表示 し て 、 キ ー 入 力 を 待つ よう に し ます 。 そ し て 、 何 か キー 入力 が あれ 
ば リセ ッ ト が か か り 、 再 起動 を 行なっ て くれ れ ば よさ そう で す 。 こ の キー 入力 を する 前 
に 正しい フロ ッ ピ ー デ ィ ス ク に 差し 替え て お け ば 、 そ こ で パソ コン が 正しく 立ち 上 げ ら 
れる と いう わけ で す 。 

むろ ん 、 ま た また 間違え て シス テム ディ スク 以外 の も の を 挿入 し て し まう と リセ ッ ト 
し な く て は な ら な い の は 当然 で す 。 こ こ で 表示 され る メッ セー ジ は プロ グラ バ と 一 緒 に 
フロ ッ ピ ー デ ィ ス ク に 書き 込ん で お きま す 。 た だ 音 を 出さ ず に じっと 待っ て いる の で は 
何 が 原因 で 立ち 上 が ら な いか わか ら な いか ら で す 。 そ の た め の メ ッ セ ー ジ は ファ イル と 
し て 記録 し お き 、 そ の ファ イル 名 を 指定 する 形 で 表示 メッ セー ジ の 内 容 を 決め て いま 
す 。 こ うし て お け ば 自分 の 好み の メッ セー ジ に 人 科 単 に 変え られ る か ら で す 。 

MS-DOS で は シス テム ディ スク 以外 の フロ ッ ピ ー デ スク に は どの よう な プロ グラ 
ム が 書い て ある の か を まず 調べ て み ま し ょ う 。MS-DOS に 付属 し て くる SYMDEB を 
利用 し て その 部 分 を 解析 し た 結果 の 逆 ア セン ブル リス ト の 一 部 分 を ここ で 示し ます 。 説 
明 上 の 混乱 を 避け る た め に わざ と セグ メン ト は 省略 し て あり ます 。 実際 の アド レス は 
% ぃ セグメント: オキ オフセット? の よう に 表示 され ます 。 

ここ で アセ ンプ ルリ スト を 見 る の が 初め て の 人 の た め に 簡単 に この リス ト の 読み 方 を 
説明 し て お きま し ょ う 。 ア セン プリ 言語 は ほとん どの 場合 、. 柄 1 行 で 完結 し ます 。 こ の 
1 行 は 次 の 順番 で 記述 され て いま す 。 


アド レス コー ド ニー モニ ッ ク (アセ ンプ リ 言 語 ) 


の 順 で す 。 こ こ で 示す リス ト は アセ ンプ ブラ で アセ ンプ ブル (コン パイ ル ) し た 後 の 状 態 
を リス ト と し て 出力 し た も の で 、 そ の 結果 が 16 進数 コー ド . と な っ て いま す 。 - し た が っ 
て 、 ア セン プル する 前 は プロ グラ ミン グ し た ニー モニ ッ ク . と 呼ば れる ソー スコ ー ド の 部 
分 だ けし か あり ませ ん 。 あ る 特定 の メモ リ の 内 容 を まっ た く 加 工 せ ず に 直接 書き 出す こ 
と を ダン プ す る と いい ます 。 こ こ で 示す の は ダン プリ スト で す 。 
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ン ア リサ 
0100 EB1C JMP 011E 
011E 33CO XOR AX,AX 
0120 8ED8 MOV DS,AX 
0122 8ECO MOV ES,AX 
0124 8EDO MOV SS,AX 
0126 BC8A02 MOV SP,028A 
0129 FC CLD 
012A BEOBOO MOV SIT,000B 
012D 2EAD LODSW CS: 
012F 3D8000 CMP AX,0080 
0132 7538 JNZ 016C 
0134 BEB901 MOV S1,01B9 
0137 B8000A MOV AX,0A00 
013A CD18 INT 18 
013C B40C MOV AH,OC 
013E CD18 INT 18 
0140 B412 MOV AH,12 
0142 CD18 INT 18 
0144 OE PUSH CS 
0145 1F POP DS 
0146 33CO XOR AX,AX 
0148 8ECO MOV ES,AX 
014A B800A0 MOV AX,AO000 


014D 26F606010508 TEST Byte Ptr ES: [0501] ,08 


0153 7403 JZ 0158 

0155 B800EO MOV AX,E000 

0158 8ECO MOV ES,AX 

015A BF4001 MOV DI,0140 

015D AC LODSB 

015E 0ACO OR AL,AL 

0160 7404 JZ 0166 

0162 AA STOSB 

0163 47 TNC Dr 1 
0164 EBF7 JMP 015D 

0166 BOO6 MOV AL,06 

0168 E637 OUT 37,AL 7 
016A EBFE JMP 016A 


0100 EB 1C 90 4E 45 43 20 32-2E 30 30 00 04 01 01 00 k..NEC 2.00..... 
0110 02 CO 00 DO 04 FE 02 00-08 00 02 00 00 00 33 CO .@.P.“.....….. 3 
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02BO 0A E4 75 02 8B DE OB F6-C3 54 68 69 73 20 69 73 .qu..\^.vCThis is 
02CO 207468652064 61 74-61 20 64 69 736BO0O4E the data disk.N 
02D0 6F 20 73 79 73 74 65 6D-20 66 69 6C 65 73 00 49 o system fi1es.T 


これ は IPL(Initial Program Loader 、 イ ニシ ャ ル ・ プ ログ ラム ・ ロ ー ダ ) と 呼ば れる 
フロ ッ ピ ー デ ィ ス ク 上 の トラ ッ ク 0 セク タ 0 に 書か れ て いる プロ グラ ム の 一 部 分 で す 。 
この 部 分 を 読み 込ん で パソ コン が 立ち 上 が っ て いた の で す 。MS-DOS の 解説 書 な ど を 
読む と 予約 領域 な ど と 書か れ て いる 場所 の 内 容 が これ な の で す 。 

で は 、 ダ ンプ リス ト の アド レス 0100 か ら 011E まで を みて くだ さい 。 ど こ か で みた 
こと の ある よう な メッ セー ジ が 記録 きれ て いる と 思い ませ ん か ? ここ に は それ ぞ れ の フ 
ロッ ピー ディ スク に 関す る 管理 情報 が 記録 きれ て いま す 。 こ この デー タ を 読み と る こと 
に よっ て 、 こ の ディ スク が 2HD の ディ スク で ある こと が わか る よう に な っ て いま す 。 

次 に 、 逆 アセ ンプ ブル リス ト の アド レス 0134 を 見 て くだ さい 。 こ れ は 、015D か ら の ス 
トリ ング コピ ー の た め に SI レジ スタ に 、 プ ログ ラム の 終了 点 を セッ ト し て いま す 。 こ 
れ は ダン プリ スト を 見 る と 分 か り ま す が ス トリ ング デー タ の 始ま り で も あり ます 。 し か 
し 、 実 際 に この ディ スク か ら プ ブー ト (起動 ) し て みる と 本 来 は “This is the data disk" 
と 表示 され る は ず な の で す が 、“No system fles” と 表示 され ます 。 こ の 現象 は ブー ト 
時 の 特殊 な 環境 で 発生 の た め 追 跡 し て みる こと が 困難 で し た 。 

ぼく の IPL も や は りこ の よう な 現象 が 起こ っ た た め 、 試 行 錯誤 で 正しく 表示 され る 
位置 を 探し だ し まし た 。(MOV SI,48H : ofset STRING DATA) アド レス 014D で は 、 
資料 が な い の で 断定 は で きま せん が 、 ハ イレ ゾ リ ュー ショ ン モ ー ド か どう か の チェ ッ ク 
を お こ な っ て いる の で は な いか と 思い ます 。 

アド レス 015D か ら 0166 まで は 、 ス トリ ング デー タ を 0 か どう か チェ ッ ク し な が ら 
テキ スト V-RAM に 転送 し て いま す 。 こ れ は 、 ス トリ ング デー タ が ASCIZ 文字 列 で 記 
録 き れ て いる の で 、0 が スト リン グ デ ー タ の 終了 コー ド に な り ま す 。 

アド レス 0166 か ら 016A まで は ベル を 鳴ら し て いま す 。 そ し て アド レス 016A は 無 
限 ル ー プ に な っ て いま す 。 だ か ら 音 を 出し 続け て 何 も キ ー 入 力 を 受け 付け な い の で す 。 
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圏 リス ト 11-7 
も >: BOBFT SEGMENT AT OFFFFH 
2: ASSUME CS:BOOT 
< 
4: ORG OH 
に が 
6: RESET LABEL FAR 
4 
8: BOOT ENDS 
9: 
0 店 
11: CODE SEGMENT 
2 
13: ASSUME CS:CODE 
14 : 8 
15 : MOV AX,0AOOH 
16: INT 18H 
3 MOV AH,OCH 
18: INT 18H 
19: MOV AH,12H 
20 : TNT 18H 
ンタ 
2 久 ら MOV CX,892 
の 3 MOV ST, OFFSET CODEEND: 32H : offset STRING DATA 
24 : MOV AX,0A000H ) CRT SEGMENT ADDRESS 
25: MOV ES , AX 
26 : PUSH CS 
池 POP DS 
28 : XOR DI,DI ) CLEAR DI 
29 : CLD 
30 : 
31: LOOP1 LABEL NEAR 
に と MOVSB 
33: 
34 : TNC DI 
35 : LOOP LOOP1 
36 : 
7 人 XOR AX , AX :) READ KEY 
38: INT 18H 
づい 
40: JMP FAR PTR RESET : SUFT RESET 
41: 
42: CUDEEND LABEL NEAR 
43: 
44: CODE ENDS 
45 : 
46 : END 
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以上 が 解析 結果 で す 。 今 回 の 改良 IPL プロ グラ ム は これ ら を 考 虐 し て より 使い や す 
く 届 まじ た so 届 ス skYE7 は アモ シン デラ の ソー スリ スト で す 。 こ の プロ グラ ム で 合 。 べ 
ル を 鳴ら す の を や め ま し た 。 そ の か わり 、 も っ と 役 に た つよ うに メッ セー ジ を 表示 し た 
後 、 キ ー 入 力 を 待っ て 何 か キ ー が 押さ れ た ら CPU が 電源 ON 時 に 実行 する アド レス 
(リセ モット キー を 押さ れ た と きも ここ の アド レス で す ) に EAR ジャ ンプ し ます 。 簡単 に 
いえ ば ソフ トウ ェ ア で リセ ッ ト ス イッ チ を 押す の と 同じ こと を し で いぼ ます ? 

また 、PC-9801 シリ ー ズ で は BIOS に 1 文字 表示 ルー チン が な いた め 、 し か た な く 
テキ スト V-RAM へ の 直接 転送 を し て いま す 。 こ の た め 、 現状 で は メッ セー ジ に 使え る 
の は ASCII 文字 ざけ で す 。 テ キス ト V-RAM は 1 バイ ト 文 字 (ASCII 文字 ) の 場合 は 、 
V-RAM の 偶数 アド レス に だ け 書 き 込 むこ と で 表示 で きま す が 、2 バイ ト 文 字 の 場合 は 
特別 な 処理 を し な けれ ば な り ま せん 。 そこ で 、 今 回 は 1 バイ ト 文 字 だ け を 使用 する こと 
に し て IPL プロ グラ ム が 複雑 化す る の を 避け る こと に し まし た 。 自信 の ある 方 は 2 バ 
イト 文字 、 つ まり 漢字 を 使用 で きる よう に し た り 、 さ ら に 1 バイ ト 文 字 と 2 バイ ト 文 字 
と の 混在 を 可能 に し て みて くだ さい 。 

また 、 デ バッ グ に は 十分 時 間 を か ける よう に し て くだ さい 。 こ の プロ グラ ム は 、 フ 
ロッ ピー ディ スク を 書き 換え る た め デ バッ グ が 不 十 分 な 場合 、 フ ロッ ピー ディ スク の 内 
容 まで 壊し て し まう 可能 性 が あり ます 。 フ ォ ー マ ッ ト し た ば か り で まだ 何 も 書 き 込 ん で 
いな い デ ー タ ディ スク を 1 枚 用 意 し て や る と よい で し ょ う 。* 

それ で は 、 こ の IPL プロ グラ ム を フォ ー マ ッ ト 済 み の デ ィ ス ク に 書き 込む た め の Pascal 
プロ グラ ム を リス ト 11-8 に 示し ます 。 少 し 長い の で 間違え な いよ うに 注意 し て くだ さ 
い 。 こ の 中 に は 上 記 の IPL プロ グラ ム を バイ ナリ ー コ ー ド に し て 配列 に お さめ て あり 
ます か ら 、IPL プロ グラ ム を 自分 で 改造 じ と よ う と する の で な け ぜ ば 上 上記 の アセ ンプ ラ の 
プロ グラ ム を 入力 する 必要 は あり ませ ん 。 


1 安全 の た め ハ ー ド ディ スク は シス テム か ら 切 り 離 し て お いて くだ さい 。 
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田 リ スト 11-8 


program BootMessage 
: Uses Crt: 


『 
の 
3 
4: 
5: type 
6 
7 
8 
9 


Str80 = string[80] : 
DiskType = record 
SystemID : array[1..8] of char: 

* SectorSize : 1nteger 
10: CLusterSize : byte: 
も ReservedCLusters : 1nteger : 
人 FATs : byte: 
13: RootEntries : 1nteger : 
14: TotaLSectors : integer : 
> FormatTD : byte: 
16: SectorsPerFAT : 1nteger 
47* SectorsPerTrack  : 1ntegerj 
18: sides : integer 
19: HiddenSectors ・ integer [ 
20 : end: 
な の 1 | 
22: const 
23: Version = 1.0!: 
24 : 
25: Var [ 
26 : Fname : Str80 : 
8 すさ DiskData : DiskTYype: 
28+ MessageFiLe : fiLe of char: 
29: SectorBuffer : array[1..1024] of byte: 
30 : 
に 
32: function Exists(FiLeName : str80) : booLean: 
1 
34: Var 


35: ま >: ま 抽 65 
36 : ResuLt : booLean: 


に 

38: begin 

39 : Assign(f ,FiLeName) : 

40:  {$T こ ナ 

41: Reset(f): 

42:  {$ エ 1+} 

43: ResuLt := (IOResuLt = 0): 
44 : ex1sts := ResuLt: 

45 : if ResuLt = true then 

46 : CLose(f ) : 


47: end: { of exists 


2 
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: Procedure TiTLe : 


: begin 
CEYSBS 
Write(?Boot Message UtiLity〉) : 
WriteLn(〉 - Version ',Version) : 


: end: { of TiTLe } 


: procedure GiveHeLD: 


: begin 


TiTLe : 
WriteLn() この ユー ティ リティ は 指定 され た ファ イル 中 の メッ セー ジ を IPL. プロ グラ 


WriteLn(〉 と 共に ブー ト セ クタ に 書き 込む も の で す 。( 2HD ディ スク 専用 ) ?): 
WriteLn : 

WriteLn(: 例 BOOTMESS TEXT.FTL') : 

WriteLn : 

WriteLn( メッ セー ジフ ァイル 中 に は コン トロ ー ル コー ド を 含む こと は で きま せん 。 ?) : 
WriteLn() また VRAM に 直接 文字 を 転送 する た め CR 、LF 等 や シフ ト JIS コー ド も 使 


WriteLn( で きま せん 。 メ ッ セ ー ジ は 最大 892 文字 まで 書く こと が で きま す 。 う ): 
WriteLn: 


: end: + of GiveHeLp + 


: procedure GetFiLeName : 


・ Var 


1 : integer: 


: begin 


1f paramcount > 0O thent コマ ンド ライ ン オ プシ ョ ン か ら の 読み 込み } 
Fname := paramstr(1) 
eLse 
begin 
GiveHeLD 
GoToXY(1.,22) : 
Write() メ ッ セ ー ジ ファ イル 名 : う ): 
ReadLn (Fname) : 
end : 


for i := 1 to Length(Fname) do 
Fname[i] := upcase(Fname [i] ) : 


: end: { of GetFiLeName + 
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95: 

96: procedure GiveErrorHeLD: 

97: 

98: const 

99: beLL = 7: 

100: 

101: begin 

102: if Length(Fname) > 0 then 

103: WriteLn(chr(beLL) ,?*** Sorry, fiLe ?,Fname,) not found? ): 
104: 


105: WriteLn: 

106: end: { of GiveErrorHeLp } 
107: 

108: 

109: procedure ReadDiskData: 
110: { ディ スク の 識別 情報 を セット } 


13 和 0 

112: begin 

よる with DiskData do 

114: begin 

115: SystemTD ッ 生 ーーー 
せ 6: SectorSize := 1024: 
1475 CLusterSize 1 
13B: ReservedCLusters := 1: 
119: FATs := 2: 
120z RootEntries アイ 1 
124< TotaLSectors よる 32: 
122x FormatTD := $FE: 
123・ SectorsPerFAT := 2: 
124 : SectorsPerTrack := 8: 
125: Sides し 細 に 1 
126 : HiddenSectors t。 屋 1 


127:3 end: { of with 
128: end: { of ReadDiskData ナ 


129: 

130 : 

131: procedure PrepareSectorBuffer : 

132: const 

1384 新しく プー ト セ クタ ー に 書き 込 せ IPL } 

134 : PreambLeSize = 3: 

135: MachineCodeSize = $2A: 

136 : 

13: PreambLe : array[1..PreambLeSize] of byte = ($EB, $1C, $90): 
138: MachineCode  : array[1..MachineCodeSize] of byte 

139 : =。【 

140: $B8 ,$00.$0A、{ MOV AX,O0AOOH : CRT MODE SET 


141: $CD ,$18, TNT 18H 


+ 

{ 6 
142: $B4 ,$0C, { MOV AH,OCH  : TEXT DISPLAY } 
143: $CD ,$18, { + 


TINT 18H 
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144: 
145: 
146: 
147 : 
148: 
149: 
150: 
53 : 
偽 及 2 
153: 
154 : 
155・: 
156: 
157: 
158: 
159: 
160: 
161 : 
162: 
163: 
164: 
165: 
166: 
167: 
168: 
169: 
170: 
ま 71: 
172: 
9 
174: 
475 : 
4176 
7 4 
178: 
179: 
180: 
8 も : 
182: 
183。 
184 : 
185: 
186 : 
187 : 
188: 
189: 
190 : 
191 : 


は 92! 


$B4 ,$12, { 
$CD ,$18, { 
$B9,$7C,$03,t 


$BE,$48,$00,{ 
$B8 ,$00,$A0,{ 
$8E,$CO, { 
$OE, { 
$1F , { 
$33 , $FF , { 
$FC, { 

{ 
$A4 , 
$47 , 
$E2 , $FC, { 


1 


$33,$CO, 
$CD ,$18, 


1 


$EA,$00,$00 ,$FF ,$FF 


{ 
9 記 


Var 
遇 。 
CharCntr , 
Posn , 


MessageTraiLerSize : integ 


procedure ReadMessageFiLe : 


const 
MaxMessageLength 


Var 
に いり 


= 892: 


begin { of ReadMessageFiLe + 


TiTLe : 
GoToXY(1.,8) : 


MOV 
TNT 


MOV 
MOV 
MOV 
MOV 
PUSH 
POP 
XOR 
CLD 
LABEL 
MOVSB 
TNC 
LOOP 


XOR 
TNT 


JMP 


@T : 


Write(?Reading Text FiLe...〉): 
Assign(MessageFiLe , Fname) : 
Reset(MessageFiLe) : 


charCntr := 0: 


whiLe (CharCntr < MaxMessageLength) and (not EofF(MessageFiLe)) do 


begin 


Read(MessageFiLe , ch) : 


は そ Pehsinst を が 


だ * そる] bhert 


AH,12H  : CURSOR OFF 3 
18H + 
CX,892  : MAX MESSEGE SIZE } 
ST,48H  : offset STRING DATA } 
AX,0A000H: CRT SEGMENT ADDRESS} 
ES,AX + 
CS + 
DS 2 
DI,DI + 

+ 
NEAR + 

+ 
DI Ba 
LOO + 
AX,AX ) Read KEY ナ 
18H 下 


FAR PTR $OFFFF:0000:SOFT Reset} 
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193: begin 

194 : Tnc(Posn) : 

195 : Tnc(charCntr) : 

196 : SectorBuffer[Posn] := ord(ch) : 
197 : end: { of if 


198: end: { of whiLe } 
199: 。CLose(MessageFiLe) : 
200: end: { of ReadMessageFiLe } 


203: begin { of PrepareSectorBuffer 
204 : Move(PreambLe[1] , SectorBuffer[1] , PreambLeSize) : 
205: Posn := PreambLeSize : 


207: with DiskData do 
208: begin { prepare DiskData 


209: for 1 := 1 to sizEofF(SystemID) do 

210: begin 

Pt Tnc(Posn) : 

鐘 電 3 SectorBuffer [Posn] := ord(SystemTD [i] ) : 
213: end: { of for } 

214 : 

215: Tnc(Posn) : 

216: SectorBuffer[Posn] := Lo(SectorSize) 
237: Tnc(Posn) : 

218: SectorBuffer[Posn] := Hi(SectorSize) : 
219: 

220 : Tnc(Posn) : 

レセ ヤ ャ 1 SectorBuffer [Posn] := CLusterSize : 

22・ 

228: Tnc(Posn) : 

224 : SectorBuffer [Posn] := Lo(ReservedCLusters) : 
225 : Tnc(Posn) : 

226 : SectorBuffer [Posn] := Hi(ReservedCLusterSs) : 
ドイ 

228 : Tnc(Posn) : 

229 : SectorBuffer [Posn] := FATs: 

230 : 

8 Tnc(Posn) : 

2832) SectorBuffer [Posn] := Lo(RootEntries) : 
233: Tnc(Posn) : 

234 : SectorBuffer [Posn] := Hi(RootEntries) : 
235! 

236: Tnc(Posn) : 

237 : SectorBuffer [Posn] := Lo(TotaLSectors) : 
238: Tnc(Posn) : 

239 : SectorBuffer [Posn] := Hi(TotaLSectors) : 
240 : 


241 : Tnc(Posn) : 
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242: SectorBuffer [Posn] := FormatTD : 

243: W 

244 : Tnc(Posn) : 

245: SectorBuffer[Posn] := Lo(SectorsPerFAT) : 
246: Tnc(Posn) : 

247 : SectorBuffer[Posn] := Hi(SectorsPerFAT) : 
248: 

249: Inc(Posn) : 

250: SectorBuffer[Posn] := Lo(SectorsPerTrack) : 
251 : Tnc(Posn) : 

252: SectorBuffer[Posn] := Hi(SectorsPerTrack) : 
253: 

254 : Tnc(Posn) : 

255: SectorBuffer[Posn] := Lo(Sides) : 

256 : Tnc(Posn) : 

257: SectorBuffer[Posn] := Hi(Sides) : 

258: 

259: Tnc(Posn) : 

260 : SectorBuffer[Posn] := Lo(HiddenSectors) : 
261 : Tnc(Posn) : 

262: SectorBuffer [Posn] := Hi(HiddenSectors) : 
263. 


264 : end: { of with } 

265 : Tnc(Posn) : 

266: 

267。 Move(MachineCode [1] , SectorBuffer [Posn] , MachineCodeSize) : 
268: 


269 : Posn := Posn + MachineCodeSize -1: 

270: 

271。 ReadMessageFiLe : 

レ サ か 人 

273: MessageTraiLerSize := DiskData.SectorSize - PreambLeSize - sizEofF(DiskData) 
274 : - MachineCodeSize - CharCntr: 


275: Tnc(Posn) : 
276: fiLLchar(SectorBuffer [Posn] , MessageTraiLerSize, 0): 
277: end: { of PrepareSectorBuffer 


2784 

279: 

280: procedure WriteSectorBuffer : 
281: var 

282 : 本 本 朋 導 まい 

283: 

284: begin 

285: TiTLe: 


286 : GoToXY(1, 8): 

287: WriteLn( フォ ー マ ッ ト 済 み の デ ー タ ディ スク を ドラ イブ MA に セッ ドド じ て 下 きい 3 うう: 
2883 | Writehn(fname か ら ブ プー トキ ウタ ー に ※ ッ セー ジ を コピ ー ほ ます 。 う )5 

289: GoToXY(1,22) : 

290: Write(?Press any key to contine...”): 


230 CAP7PER 77. さら な る 発展 の た め に 


291 : ch := ReadKey: 

292 : 

298 TiTLe : 

294 : GoToXY(1, 8): 1 
295: Write(?Writeing the boot sector...”): 


296 : 

297 : inLine( $50/ { PUSH AX , SAVE REGS } 
298 : $53/ { PUSH BX 
299 : $51/ { PUSH CX 0: 
300 : $52/ { PUSH DX + 
301 : $55/ { PUSH BP 
302 : $56/ { PUSH S1 バ 
908: $57/ { PUSH DI + 
304 : $1E/ { PUSH DS +} 
305 : $06/ { PUSH ES 
306 : $FB/ {て 8YH :) EnabLe ints } 
307 : $B8/>$0000/ { MOV AX ,0000 ) Drive A: } 
308: $8D/$1E/SectorBuffer/{ LEA BX ,SectorBuffer: Source addr } 
309: $B9/>$0001/ { MOV CX,0001 :) 1 Sector + 
310 : $BA/>$0000/ { MOV DX ,0000 : Log Sector 0+} 
91431 : $CD/$26/ { INT 26H , Do t! 肌 
312 : $9D/ { POPF j Toss fLags 
に $07/ { POP ES ) Restore reg8+ 
314: $1F/ { POP DS 0: 
315: $5F/ { POP DI 小 
33: $5E/ { POP ST 叶 
3147: $5D/ { POP BP 
318: $5A/ { POP DX 洒 
の 19 $59/ { POP CX + 
320 : $5B/ { POP BX M 
に ジル $58) : { POP AX + 
3 の の 


③23 : WriteLn(^G,) 終了 1 2: 

324 : WriteLn: WriteLn : 

325: end: { of writeSectorBuffer 
326 : 6 
9: 

328: begin 

329 : GetFiLeName: 

に 0 if Exists(Fname) then 


331 : begin 

9 六 : ReadDiskData : 

333 : PrepareSectorBuff er : 
334 : WriteSectorBuff er : 
335 : end 


336 : eLse GiveErrorHeLD : 
337: end. 
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5 一 29 行 目 で は グロ ー バ ル 変 数 (プロ グラ ム 全 体 で 有効 な 変数 ) や 型 な どの 定義 を 行 
な っ て いる だ け で す 。 間 違え を な いよ うに 入力 すれ ば 特に 気 に す る よう な 部 分 で は あり ま 
せん 。 関 数 や 手続 き を 多用 し て いま す が 、 そ れ ぞ れ の 関数 や 手続 き の 働 き を 確実 に 理解 
し て いけ ば そん な に 難し いも の で は な い は ず で す 。 

32 一 47 行 目 まで は 指定 され た ファ イル が 存在 し て いる か を チェ ッ ク す る 関数 Exists 
で す 。 こ の 関数 は よく 使う の で 、 あ な た の ツー ル 集 に ユニ ッ ト と し て つけ 加え る こと を 
お すす めし て お きま す 。BExists は 指定 され た ファ イル が 存在 し て いる と き に は TRUE 
を 存在 し て いな いと き は FALSE を 返し ます 。50 - 56 行 目 の 手続 き は プロ グラ ム の タ 
イト ル を 表示 する も の で す 。 

59 - 72 行 目 まで の 手続 き GiveHelp は 、 使 い 方 を 説明 する た め の 手 続き で す 。75 行 
目 の 手続 き GetFileName は 、 こ の プロ グラ ム が 起動 きれ た と き に パラ メー タ と し て ファ 
イル 名 が 指定 され た か どう か を チェ ッ ク し 、 指 定 さ れ て いな い 場 合 に は 使い 方 を 説明 す 
る 表示 を し ます 。 こ の チェ ッ ク は 81 行 目 で 行なっ て いま す 。 フ ァイル 名 が 指定 され て い 
た 場合 に は 、91 行 目 で ファ イル 名 と し て セー ブ し 、 指 定 さ れ て いな い 場 合 に は 85 行 目 
で 使い 方 を 説明 する 手続 き を 実行 し た 後 、88 行 目 で ファ イル 名 の 入力 を 促し ます 。91 、 
92 行 目 で ファ イル 名 を 大 文字 に 変換 し ます 。 

96 一 106 行 目 の 手続 き GeveErrorHelp は 、 指 定 さ れ た ファ イル が 存在 し て いな いと 
き に 実行 され ます 。 こ こ で は ビー プ 音 を 鳴ら し て 、 見 つか ら な か っ た ファ イル 名 を 表示 
すず だ け " で の 。 

109 128 行 目 の 手続 き ReadDiskData は フロ ッ ピ ー デ ィ ス ク に 書き 込む た め の 情 報 
を セッ ト し て いま す 。 こ の プロ グラ ム で は 変更 で きる フロ ッ ピ ー デ ィ ス ク が 2HD に 限 
定 さ れ て いま す が 、 こ の 手続 き で 目的 の フロ ッ ピ ー デ ィ ス ク か ら 情 報 を 読み と る よう に 
変更 する と 、 対 象 の フロ ッ ピ ー デ ィ ス ク を 限定 し な く て も よく な り ま す 。 し か し 、 今 回 
は これ 以上 プロ グラ ム を 複雑 に し た く な か っ た の で 、 よ く 使 われ て いる 2HD ディ スク 
過 恨 定 じ しま し た 。 この デー タタ は フロ ッ ピ ー ア ィ ス グ ク の ドラ ッ ク 0 セク グ 0 に 記録 され で 
いる の で 、 他 の ディ スク を 使い た い 人 は デバ ッ ガ な ど で こ の デー タ を 取り 込ん で 、 手 続 
き を 変更 し て くだ さい 。 

131 行 目 が 実際 の IPL プロ グラ ム に ジャ ンプ きせ る た め の コ ー ド で す 。140 一 163 行 
目 ま で が 新しい IPL プロ グラ ム を 配列 に し た も の で す 。 コ メン ト の 形 で 、 ア セン プリ 
言語 で の 記述 を 残し て あり ます が 、MASM で アセ ンプ ブル で きる 形 の リス ト は 既に 紹介 
し て あり ます 。174 200 行 目 の 手続 き ReadMessageFile で は 、 指 定 さ れ た メッ セー 
ジフ ァイル の 内 容 を 読み 込ん で 、 記 録 す る IPL プロ グラ ム を 格納 し て ある 配列 に 追加 
し て いま す 。 こ こ で 注意 が 必要 な の は 177 行 目 の 定 数 で す 。 こ の 定数 は メッ セー ジ の 長 
さ を 指 定 し て いま す 。 こ の 長き は セク タ の 長 さ が 1024 バイ ト あ る うち の IPL ブロ グラ 
ム の サイ ズ や フロ ッ ピ ー デ ィ ス ク の 管理 情報 な ど が 使用 し ます か ら 、 こ れ ら の サイ ズ を 
差し 引い ぃ た サイ ズ で す 。 安全 の た め に すこ し サバ よん で いる の で 、 計 算 し て も ピッ タリ 
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贅 化 ませ ん 。 

203 一 277 行 目 が いよ いよ この 手続 き の 本体 で す 。 こ こ で は 、 フ ロッ ピー ディ スク に 
書き 出す イメ ー ジ を 作成 し て いま す 。280 - 325 行 目 の 手続 き WriteSectorBuffer は 目 
的 の フロ ッ ピ ー デ ィ ス ク の 決ま っ た 位置 に 、 作 成 さ れ て いる イメ ー ジ を 書き 出す た め の 
も の で す 。307 - 311 行 目 まで が フロ ッ ピ ー デ ィ ス ク へ の 直接 書き 込み を 行なっ て いる 
と ころ で す 。 こ こ で は INT26H を 使っ て この 機能 を 実現 し て いま す 。 な や ぜ INTR 手続 
き を 使わ ず に INLINE 文 を 使っ た か と いう と 、INT25H と 26H は 割り 込み を か ける 前 
と 後 と で は スタ ッ ク の レベ ル が 違う の で す 。 レ ベル が 違う と いう の は 、 ス タッ ク ポ イン 
タ の 位置 が 異な る と いう こと で す 。 こ の よう な こと が 起こ る 理由 は 割り 込み 処理 が 終了 
する と き に 、 元 の フラ ッ グ が スタ ッ ク に 積ま れ て いる た めで す 。 こ れ を その まま に し て 
お く と 聞 走 し て し まう の で 、POPE な ど を 実行 し て スタ ッ ク の レベ ル を 合わ せ て お く 
必要 が あり ます 。 こ の よう な 細か な 記述 は アセ ンプ ブリ 言語 で な いと 記述 で き な い た め 、 
この よう に TINLINE 文 を 使っ て 実現 せ ざ る と えな い の で す 。 

この プロ グラ ム の よう に Inline を 使わ ず に 、 ア セン ブラ で 書い た 手続 き や 関 数 を 
TURBO Pascal の プロ グラ ム や ユニ ッ ト と リン ク す る に は 、OBJ( フ ァイル ) に し て お 
か ね ば な り ま せん 。 そ の た め の 方 法 や 注意 は TURBO Pascal の プロ グラ マー ズ ・ ガ イ 
ド に 実例 を 含め 詳し く 説明 が あり ます か ら 、 そ ちら を 参考 に し て くだ さい 。 

328 行 目 か ら が この プロ グラ ム の メイ ン ル ー チ ン で 、 こ こ で は メッ セー ジフ ァイル が 
ある か な いか て 処理 が 分 か れ て いる だ け で す 。 
少し 難し か っ た と 思い ます が 、 理 解 で きた で し ょ うか 。 理解 で き な か っ た ひと も くじ 
けず に 何 度 か 読み 返し て みて くだ さい 。 ど うし て も わか ら な けれ ば 、 し ば らく し て また 
時 間 が た っ て か ら 読 ん で みる と 、 あ あ そ う か と わか る こと が あり ます 。 自 分 の 技術 が 知 
ら な い 間 に 上 が っ て いる の で 理解 で きた 、 と いう こと が ぼく の 経験 で も よく あり まし 
た 。 最 後に 、 ぼ く が 作っ た メッ セー ジフ ァイル を 以下 に 示し ます 。 


Not a system disk or MS_DOS disk! 


Replace the disk and press any key when ready 


今 ま で 、 こ の メッ セー ジフ ァイル に つい て の 注意 に は 触れ て いま せん で し た が 、 こ の 
ファ イル の 中 に は コン トロ ー ル コー ド を 含む こと が で きま せん 。 こ の 原因 は PC-9801 の 
CRT BIOS( バ イオ ス ) に 1 文字 表示 ルー チン が な いた めで す 。 プ ブー ト し て いる 途中 で 
は 、BIOS し か 使う こと が で きま せん 。 こ の た め に 、MS-DOS の ファ ンク ショ ンコ ー ル 
も 使え を ない の で す 。 そ こ で や む を え そ ず 直接 テキ スト を V-RAM に 表示 する コー ド を 書き 
込ん で いる の で す が 、 こ の 方 法 で は キャ リッ ジリ ター ン (OCR) 、 ラ イン フィ ー ド (LF) な 
どの コン トロ ー ル コー ド が その まま 表示 きれ て し まい ます 。 し た が っ て 、 こ の メッ セー 
ジ を 入力 する と き に は 、 行 の 区 切り に リタ ー ン キー を 押し て は いけ ませ ん 。CRT は 横 
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が 80 文字 で すか ら 、80 文字 に 満た な い 場 合 に は スペ ー ス を 入力 し て いっ て 80 文字 に 

し て くだ さい 。892 文字 まで メッ セー ジ と し て 登録 で きる の で 、 加 の すう に 記 才 内 も 
十分 間に合う は ず で す 。 科 単に いう と 、 こ こ で 使え る メッ セー ジ は 1 行 だ け と いう こと 
ee 

ここ で 笛 ね て いっ で て お きま す が 、 こ の よう な プロ グラ ム に な っ で し 聞 5 た の 尊 ほ く の 
せい で は な く 、 必 ず し も で き の よ く な い PC-9801 の せい と いっ た らい い 過 ぎ で し ょ う 
か 。 工夫 を すれ ば も っ と 使い や すい プロ グラ ム に は な り ま す が 、 プ ログ ラム が 複雑 に 
な か っ て し まえ の 餅 サ ンプ ルプ ログ ダ タ あの よう に な っ た と いう わけ で す 。 こ の まま で も 
ピー 音 が 鳴ら な く な る の で 助かる は ず で す 。 

この プロ グラ ム を 作っ て いて 感じ た こと は 、 デ ー タ ディ スク に な ぜ ど うし よう も な い 
よう な 「 不 親切 プロ グラ ム 」 を 書き 込ん で いる の だ ろう か と いう 疑問 で すす 。 た っ た これ 
だ け (ここ で 紹介 し て いる プロ グラ ム の こと ) で か な り 便 利 に な る の に と 思わ れ て し か 
だ た あり ませ ん 。 

MS-DOS で この 領域 を 操作 し て いる の は 、 ぼ く が 知っ て いる 限り で は FORMAT コ 
マン ド し か あり ませ ん 。 つ まり 、FORMAT コマ ンド で あの 「 不 親切 プロ グラ ム 」 を 書 
き 込ん で いる わけ で す 。 そ こ で 、FORMAT コマ ンド を 改造 する こと も 考え られ ます が 、 
それ に は か な り の 技術 と フロ ッ ピ ー デ ィ ス クコ ント ロー ラ (FDC) の ノウ ハウ が 必要 な 
の で これ 以上 は や り ま せん 。 

最後 に 大 切な 注意 を し て お きま す 。 

こと この 次 器 交 ラ ム で 加 志 を 直人 旬 と し てき の は 7 トラ イン で よさ し た が ら 殆 、 あ な た 
の パソ コン の ハー ド デ ィ スク が AA ドライブ で ある 場合 は ハー ド デ ィ スク が 破壊 され る 
の で 厳重 な 注意 が 必要 で す 。 か な ら ず フロ ッ ピ ー ド ライ ブ を A ド ライ ブ と な る よう に 
立ち 上 げ て か ら こ の プロ グラ ム を 動か し て くだ さい 。 う っ か り 統 合 環境 か らい き な り こ 
の プロ グラ ム を 走ら ちら せる と ハー ド デ ィ スク が 壊さ れ ま すか ら 、 く れ ぐ れ も 注 意 し て くだ 
さい 。 


帳 
RS 
に 


の 仕上 げに 


区 


効率 アッ プ の た め の テ クニ ッ ク 


これ まで さき さま ざま な サン プル プロ グラ ム を 使っ て 、 い ろ い ろ な トレ ー ニ ング を 重ね 
て きま し た が 、 い よい よこ れ が 最後 の 章 で す 。 こ こ で は 少し 目先 を 変え て 、 開 発 の テク 
ニッ ク の ノウ ハウ を 最後 の まとめ と いう こと に し ます 。 

長い 時 間 を か け て 苦労 し た あげ くに 完成 し た プロ グラ ム で あっ て も 、 実 行 速度 が 遅 す 
ぎ て 使い 物 に な ら な く て 、 結 局 プ ログ ラム 全部 を C 言 語 や アセ モン ブリ 言語 で 書き 直す 
羽目 に な る と いう こと は 結構 あり ます 。 

この 章 で は 、 実 行 に 時 間 が か か りす ぎる 部 分 だ け を 高速 化し 、 す べ て を 書き 直さ な く 
て も 済む せよ うな 効率 の よい TURBO Pascal プロ グラ ム を 開発 する た め の テ クニ ッ ク を 
紹介 し ます 。 


バー ジョ ン ア ッ プ も 怖く な い 
12 一 1m 上位 バ ー ジ ョ ン (ver6.0) へ の 移植 

TURBO Pascal の 人 気 が 爆発 的 に 高まっ た の は ver3.0 で し た 。ver3.0 は か な り 長 い 
間 使わ れん て いた こと な どか ら 、ver3.0 で 書か れ た プロ グラ ム を だ た くさ ん 持っ て いる 人 も 
多い は ず で す 。Borland International 社 で も バー ジョ ン ア ッ プ 用 の ツー ル を TURBO 
Pascal に 標準 添付 し て いま す 。 

これ か ら 当 分 の 間 は ver3.0 か ら 4.0 へ の 変更 の よう な ドラ ステ ィ ッ ク な こと は な いよ 
う で すし 、 な ん と いっ て も バー ジョ ン ア ッ プ に より 実行 速度 が 向上 し て いま すか ら 、 手 
持ち の 古い ver3.0 の プロ グラ ム を ver6.0 に 対応 きせ て お きた いも の で す 。 こ こ で は そ 
の た め の ツ ー ル の 使用 法 を 解説 し ます 。 

で は まず 、 以 下 の ver3.0 用 の プロ グラ ム を ver6.0 用 に 移植 し て み ま し ょ う 。 


較 Ver3Prog.pas 
Program Ver3Prog: 


2 

に 人 k / : 

4: StartSec, 
5 endsec : integer : 
6 
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7: procedure Timer(var second : integer) : 

8: type 

全 Register=record 

10: ax,bx,cx,dx,bp,s1,d1 ,ds,es ,frags : integer: 
本 end : 

12: var 

13: reg : Reg1ster: 

14: 

15: begin 


16: reg.ax := \$2c00: 
17? Msdos (reg) : 
18: second := Trunc(reg.cx/256)$*$3600+(reg.cx mod 256)$*$60 


19: +Trunc(reg .dx/256) : 

20: end:Ntof Timer\+ 

P* 時 

22: begin 

94 ObPBCP*? 

24: Timer(startsec) : 

25: DeLay(10000) : 

26 : Timer(endsec) : 

27: WriteLn( Time: :,endsec-startsec) : 


28: end.\tof Main\+ 


ジャ ー ナ ルフ ァイル を 作成 し て 、 移 植 の た め の く わし い 情 報 を 得る こと に し ます 。 


| upgrade /] VER3PROG 


と 入力 し ます 。 す る と 次 の よう な 画面 が 表れ ます 。 こ れ は ファ イル の 拡張 子 (.PAS) を 
3TP の よう に 変更 する た め の 許 可 を 求め て いま す 。 こ こ で は 、y と タイ プ し ます 。 


UPGRADE Version 6.0 Copyright (c) 1990,91 Bor1and Tnternationa1 
Warning: a11] input fi]es wi1] be renamed. Enter Y to continue 


に 


する と 、 続 いて 以下 の よう な メッ セー ジ が 表示 され 、upgrade は 終了 し ます 。 


Scanning for upgrades . . . 


VER3PROG .PAS(28) 
Tnserting USES statement. . . 
VER3PROG .PAS(39) 


1 warning reported 


EEE 
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ここ で ディ レク トリ を と っ て み ま し ょ う 。 ち ゃ ん と ジャ ー ナ ルフ ァイル (.JNL) と 拡 
張子 3TP の ファ イル が で き て いま す 。 


ドラ イブ D: の ディ スク の ボリ ュー ムラ ベル は あり ませ ん . 
入選 かる トリ は D: 加 IST 


VER3PRDG 3TP 494 87-02-02 15:14 
VER3PROG JNL 577 90-01-29 0:51 
VER3PRDG PAS 893 90-01-29 0:51 
3 個 の ファ イル が あり ます . 

808960 バイ ト が 使用 可能 で す . 


そこ で ジャ ー ナ ルフ ァイル を 見 て み ま す 。 


1. VER3PROG.PAS(17) 
Msdos (reg) : 


Parameter to MsDos must be of the type Registers defined in DOS unit. 
MsDos の 引数 は Dos ユニ ッ ト で 定義 され て いる Registers 型 で な けれ ば な り ま せん . 


Turbo3.0 と は 異な り , Turbo6 .0 で は , MsDos 手続 き に 渡す 引数 に 対し て 厳格 
な 型 チ ェ ッ ク が 行なわ れ ま す . MsDos の 引数 は , Dos ユニ ッ ト で 定義 され て いる 
Registers 型 で な けれ ば な り ま せん . 


UPGRADE は 自動 的 に , 引数 を 正しい 型 に 型 キ ャ スト し ます . 
詳し く は リフ ァ レ ンス ガイ ド 第 12 章 を 参照 し て くだ さい . 


ソー ス フ ァ イル は 以下 の よう に 変更 きれ て いま し た 。 


弄 ソ ー ス ファ イル 


1: て $R-} {Range checking off+ 

2: {t$B+} {Boo1ean complete evaluation on} 

3: {$S+} {Stack checking on} 

4: {1$ エ +} {IT/0 checking on} 

5: {$N-+} {No numeric coproceSSo エ ナ 

6: {$M 65500,16384 ,655360} て {Turbo 3 defau1t stack and heap+ 
0 

8: program Ver3Prog: 

92 

10: Uses 


9 5 Crt, {Unit found in TURBO .TPL+ 
12: Dos: {Unit found in TURBO.TPL} 


14: var 


2 Startsec, 
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16: endsec : integer : 

の 

18: procedure Timer(var second : integer) : 
19: type 

20: Register=record 

2 ます + ax,bX ,CX,dx,bp,81,di ,ds , es ,frags : nteger : 
P ア お end: 

23: var 

24: reg : Register: 

25: 

26: begin 


27: reg.ax := $2c00: 

28: Msdos(Dos .Registers(reg) ) : 

29: {! 1. Pa~rameter to MsDos must be of the type Registers defined in DOS unit.} 
30: second := Trunc(reg.cx/256)$*$3600+(reg.cx mod 256)$*$60 


31 : +Trunc(reg.dx/256) : 

32: end:{tof Timer} 

に に 本 

34: begin 

35 : CLrScr: 

36 : Timer(startsec) : 

87 2 DeLay(10000): 

38: Timer(endsec) : 

39: WriteLn( !Time: ',endsec-startsec) : 


40: end.tof Main+ 


この ソー ス フ ァ イル を ジャ ー ナ ルフ ァイル の 内 容 を 参考 に し て ver6.0 用 に 移植 し た 
の が VER6PROG.PAS で す 。 よ く 見 くら べ て みて くだ さい 。 


圏 Ver6Prog.pas 


1: {($R-} {Range checking off+ 

2: {$B++ {Boo1ean complete eva1uation on 
3: {$S++ {Stack checking on} 

4: {1$ エ +} {I/0 checking on} 

5: {$N-} て No numeric coprocessor} 

6: {$M 65500,16384 ,655360} {Turbo 3 defau1t stack and heap} 
8 

8: program VER6PRDG: 

に 

10: Uses 

13 Crt , {Unit found in TURBO.TPL} 

12: Dos: {Unit found in TURBO.TPL} 

13: 

14: var 

15: Startsec , 

16: endsec ・ word : { integer: 


+ー 
II 
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18: procedure Timer(var Second : word) : { integer: 

19: var 

20: hour, minute, sec, Sec100 : word: { GetTime の 引数 に は word 型 を 使う } 
も 

22: begin 


23: GetTime(hour, minute, sec, sec100): て PC-9801 で は sec100 は 必ず 0 } 
24 : second := hour$*$3600 +minute$*$60 +sec: 
25: end:tof Timer} 


26 : 

27: begin 

28: OLrSC デ : 

29 : Timer(startsec) : 

30: DeLay(10000) : 

34.。 Timer(endsec) : 

32 : WriteLn( :Time: ',endsec -startsec) : 


33: end.{tof Main+ 


ver3.0 に は な か っ た 手続 き や 関 数 だ が か な り 増 えて いま す 。 特 筆 す べき こと は 、MS- 
DOS の ファ ンク ショ ンコ ー ル を 使わ な けれ ば 実現 で き な か っ た よう な こと が 、 標 準 の 
(TURBO Pascal で は 標準 と い ) 意味 。 標 準 Pascal に は この よう な も の は な い ) 手続 き 
や 関数 と し て 用 意 き れ た と いう こと で す 。 

移植 せ ず に ver6.0 で プロ グラ ム を コン パイ ル し た いと いう ひと は upgrade の 起動 時 
に /3 の スイ ッ チ を つけ る こと を お 奨め し ます 。 こ うす る と ver3.0 と 高い 互換 性 を 持つ 
ュ ニ ッ ト "Turbo3 が 付加 きれ ます 。 し か し 、 こ の ユニ ッ ト も いつ まで 標準 添付 きれ る か 
と いう 心配 も あり ます し 、 せ っ か く バ パー ジョン アッ プ で 増え た 機能 を 使 を な い の は 惜 し 
いこ と で す 。 後 々 の こと を 考え れ ば ver6.0 で 走る よう に 移植 し て お きた いも の で す 。 
ver3.0 か ら ver6.0 へ の 最も や っ か いな 変更 は な ん と いっ て も 、 標 準 手続 き Read 、 
Readln の 動き が 変わ っ て し まっ た こと で す 。 こ の 変更 を 吸収 する た め に も /3 の スイ ッ 
チ は 有効 で し ょ う 。 し か し 、 こ の スイ ッ チ は 最後 の 手段 と し て と っ て お く よ う に し た は 
う が 、 よ り は や く 新 し い Read 、Readln に な れる こと が で きる で し ょ う 。 
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12-2 ョ m プ ログ ラム も プロ ジェ クト 管理 

だ ん だ ん 腕 が 上 が っ て 、 複 雑 で 大 き な プ ログ ラム を 作る よう に な る と 、 あ れ や これ や 
を すべ て 自分 で 管理 し な けれ ば な ら な い の で その た め に 長い 時 間 が 必要 に な り ま す 。 特 
に ハー ド デ ィ スク の 中 に あれ これ すべ て の 関数 や 手続 き を 入れ て お く と 目的 の 関数 、 手 
続き を 探す の が 大 変 に な っ た り 、IDE( 統 合 開発 環境 ) で の コン パイ ル や デバ パッ グ が メモ 
り 除 中 で 不能 に な っ た し ます 。 
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また 、 数 人 で 分 揚 し て プロ グラ ミン グ す る 場合 で は 、 当 然 ソ ー ス ファ イル を 分 割 し 
て 、 い くつ か の ファ イル を 使っ て 開発 し な けれ ば な ら な く な り ま す 。 こ の た め 、 作 成 し 
た ソー ス フ ァ イル が 複数 に な り 、 ど の プロ グラ ム に どの ソー ス フ ァ イル が 必要 な の か と 
いう 情報 を 管理 し て いく 方 法 が 必要 に な り ま す 。 

この 管理 方 法 に は 、 ユ ニッ ト ご と に 整理 する 方 法 、IDE に 組み 込ま れ て いる MAKE 、 
BUILD と いっ た 機能 を 使う 方 法 、 さ ら に 、MAKE コマ ンド (ユー ティ リティ ) を 使う 
方 法 が 用 意 さ れ て いま す 。 ち ょ っ と 特殊 な 方 法 と し て は ソー ス フ ァ イル 内 の 記述 を 条件 
に よっ て 切り 変え る 「 条 件 コン パイ ル 」 と いう こと も 可能 で す 。 


12-2-1m ユ ニッ ト ご と に 整理 する 方 法 

TURBO Pascal で は ユニ ッ ト が サポ ー ト され て いま す 。 こ れ に より 、 プ ログ ラム の 分 
割 コ ン パ イル が 可能 に な っ て いま す 。 こ の こと は 、 プ ログ ラム を パーツ 化 し て 作成 し 、 
残し て お ける と いう 大 き な メ リッ ト が あり ます 。 用 途 別 に 整理 し て ユニ ッ ト 名 を つけ る 
よう に すれ ば 、 プ リン タ を 使う と き に は さ の ユニ ッ ド (た と えば PRINT) 、 サ ウン ド を 
使う と き に は この ユニ ッ ト (た と えば SOUND) な ど と 容易 に 使い 分 ける こと が で きる 
よう に な り ま す 。 ユ ニッ ト の 記述 方 法 に つい て は 第 4 章 を 参照 し て くだ さい 。 

さて 、1 本 の プロ グラ ム だ っ た も の を ユニ ッ ト に 変更 する 手順 を 簡単 に 説明 し ます 。 
以下 の よう な プロ グラ ム を 例 に し て 考え て み ま し ょ う 。 

PROGRAM TEST: 


PROCEDURE A: 
BEGTIN 


END: 


PROCEDURE B: 
BEGIN 


END : 


FUNCTTON C (ZZZ : WORD) : WORD: 
BEGTN 


END : 


BEGTN 
END. 

この プロ グラ ム の 手続 き B と 関数 C を ユニ ッ ト に まとめ る こと に し まし ょ う 。 ま ず 、 

この ソー ス フ ァ イル (TEST.PAS) を 作成 し た い ユ ニッ ト 名 (TESTUNIT.PAS) で コピ ー 


し ます 。 こ れ 以 降 、 編 集 す る ファ イル は TESTUNIT.PAS で す 。 次 に 、 手 続き B と 関数 
C 以 外 の 部 分 は エディ タ な ど を 使っ て 削除 し ます 。 す る と 以下 の 部 分 だ け に な り ま す 。 
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PROCEDURE Bi: 
BEGTIN 


END: 


FUNCTION C (ZZZ : WORD) : WORD: 
BEGIN 


END : 


この 状態 の ファ イル に 、TURBO Pascal に ユニ ッ ト で ある こと を 認識 させ る た め の 
書式 を ファ イル の 先頭 に 数 行 追 加 し ます 。 


UNIT TESTUNIT: 
TNTERFACE 


PROCEDURE B: 
FUNCTION C (ZZZ : WORD) : WORD: 


TMPLEMENTATION 


この うち 、PROCEDURE B と FUNCTION C (ZZZ : WORD) : WORD: の 部 分 に 
は この ユニ ッ ト か ら 呼 び 出し て 使用 し た い 手続 き や 関 数 を 記述 し ます 。 こ こ で は 手続 き 
B と 関数 C を 他 の プロ グラ ム か ら 呼 び 出し て 使え を る ユニ ッ ト に し た い の で 、 こ の よう 
な 記述 に な り ます 。 最 後に 、 こ の ファ イル の 一 番 後に end. を 追加 し ます 。 も し も 、 ユ 
ニッ ト を 使用 する 前 に 初期 化し た い 変 数 な ど が ある と き は 、 こ の end. の 前 に begin を 
追加 し て 、 こ の begin と end. の ペア の 間 に 初 期 化 の プロ グラ ム を 記述 し ます 。 

これ で ユニ ッ ト 化 は 終了 で す 。 コ ン パ イル し て エラ ー が な けれ ば *.TPU と いう ファ 
イル が ディ スク に 作成 され て いる は ず で す (この 例 で は TESTUNIT.TPU) 。 

ュ ユニット を 作成 する う え で の 注意 する こと が あり ます 。 そ れ は 、 ユ ニッ ト に は コン パ 
イル 後 の マ シン コー ド が 64KB 以内 で な けれ ば な ら な いと いう 制限 で す 。 


12-2-2mIDE の MAKE 、BUILD を 使う 方 法 


IDE は 統合 開発 環境 を う た うだ け あ っ て 様々 な 便利 な 機能 を 備え た て いま す 。 こ の 中 に 
は プロ ジェ クト 管理 を 行う) こと が で きる MAKE や BUILD も 含ま れ て いま す 。 

MAKE と は ユニ ッ ト の ソー ス フ ァ イル (*.PAS) と オプ ジェ クト ファ イル (*.TPU) の 
日 付 と 時 間 を チェ ッ ク し て ソー ス フ ァ イル の ほう が オプ ジェ クト ファ イル より も 新しい 
場合 (ソー ス フ ァ イル に 変更 が あり 、 コ ン パ イル を 忘れ て いる よう な 場合 ) 、 再 コン パ 
イル を 自動 的 に 行っ て くれ る と いう 機能 で す 。 

ユニット は プロ グラ ム を 作成 し て いく うち に 進化 し て 行き ます か ら 、 ソ ー ス ファ イル 
に は 関数 を 追加 し て も 、 コ ン パ イル する の を 忘れ て し まう こと も あり ます 。 し か し 、 コ 
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ン パ イル を 忘れ る と 、 実 際 に 使用 する オブ ジェ クト に は この 関数 が 含ま れ て いな い の で 
エラ ー に な っ で じまい ます 。 
TURBO Pascal の MAKE 機能 で は 次 の 3 種類 の チェ ッ ク を 行っ て いま す 。 


(1) メイ ンプ ログ ラム で 使わ れ て いる ユニ ッ ト の ソー ス フ ァ イル と オプ ジェ クト ファ イ 
ル の 日 付 と 時 間 を チェ ッ ク し て 、 ソ ー ス ファ イル が 修正 され て いる 場合 は 再 コ ン パ イル 
する 。 
(2) 変更 し た ユニ ッ ト の イン タフ ェ ー ス 部 が 修正 きれ た か を チェ ッ ク す る 。 

も し も 修正 きれ て いた 場合 、 そ の ユニ ッ ト を 使用 し て いる 他 の ユニ ッ ト を 再 コ ン パ イ 
ル し ます 。 実現 部 だ け を 修正 し た と き に は 再 コ ン パ イル は 行わ れ ま せん 。 
(3) ユニ ッ ト が 使用 し て いる イン クル ー ド ファ イル や コン パイ ラ 指 令 (SL) で リン ク し 
て いる .OBJ ファ イル が 修正 され て いる 場合 、 再 コン パイ ル す る 。 


この よう な チェ ッ ク は と て も 面倒 な 気 が し ます が 、IDE で は f・9 キー で この よう な 
類 わ し い チ ェ ッ ク を 自動 的 に 行っ て くれ ます 。 こ の 機能 が な か っ た ら す べ て の チェ ッ ク 
を 自分 で 行わ な く て は な ら な い の か と 思う と ぞっと し ます 。TPC.EXE で コン パイ ル し 
た と き に は 、MAKE 機能 を 含め る た め に /M オプ ショ ン を つけ て 起動 し ます 。 

BUILD は MAKE の 特殊 な 場合 と いえ ます 。 こ の 機能 を 使う と 対象 の プロ グラ ム で 
使用 し て いる すべ て の ユニ ッ ト が 再 コ ン パ イル され ます 。 意 識 的 に すべ て の ユニ ッ ト 
を 最新 の も の に し た いと き に 有効 な 機能 で す 。IDE で この 機能 を 使う に は Compile メ 
ニュ ー で Build を 選択 し ます 。TPC.EXE で は /B オプ ショ ン を つけ て 起動 し ます 。 


12-2-3mMAKE コマ ンド (ユー ティ リティ ) 

TURBO Pascal で は IDE に MAKE 機能 を ちっ て いま す が 、 コ マン ドラ イン コン パ 
イラ TPOC.EXE を 使用 し た い 人 や アセ ンプ ブリ 言語 で 作成 し た .OBJ ファ イル な ど を リン 
ク し て いる 場合 、 最 新 の オプ ジェ クト ファ イル か どう か を チェ ッ ク し だ た だい ときには IDE 
の MAKE 機能 は 役に立ち ませ ん 。 

この よう な と き に は 別に 用 意 き れ て いる MAKE コマ ンド を 使用 し ます 。 同じ 名 称 
の コマ ンド が MS-DOS を 購入 する と 付属 し て きま す が 、 こ こ で 紹介 する の は Borland 
International 社 の MAKE コマ ンド で す 。 こ の 2 つ は 基本 的 に は 同じ こと を 行う た め の 
コマ ンド な の で す が 、 作 成 者 ( 社 ?) が 異な る た め ま っ た く 同 じ に 使う と いう わけ に は い 
きま せん 。 こ こ で は Microsoft 社 の MAKE コマ ンド に つい て は 説明 し ませ ん が 、 興 味 の 
ある 人 は 両者 の 違い を 調べ て みる と お も し ろ い か も し れ ま せん 。Borland International 
社 は TURBO シリ ー ズ で Microsoft 社 の Quick シリ ー ズ に 対抗 し スピ ー ド を 売り も の 
に し て いる の で MAKE の スピ ー ド を 比較 し て みて も お も し ろ い で し ょ う 。 

IDE で は ユニ ッ ト 名 と 同じ 名 前 の *.JPAS ファ イル を ソー ス フ ァ イル 、 同 じ 名 前 の *.TPU 
ファ イル を オプ ジェ クト (ユニット ) ファ イル と し て いた の で 、 特 に ソー ス フ ァ イル と 
オブ ジェ クト ファ イル と の 関係 を IDE に 知ら せる 必要 は あり ませ ん で し た が 、 ア セン 
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プル し た オブ ジェ クト ファ イル を リン ク し て いる 場合 を 想定 する と 、MAKE コマ ンド 
に ソー ス フ ァ イル と オブ ジェ クト ファ イル の 関係 を 知ら せる 必要 が あり ます 。 

この よう な 目的 の テキ スト ファ イル を メイ ク フ ァ イル と 呼び 、 以 下 の よ うな 書式 で 記 
述 し ます 。 こ の ファ イル は MAKEFILE と いう 名 前 で 作成 し て お く と MAKE コマ ンド 
が 自動 的 に 読み 込ん で 実行 し て くれ ます 。 


teststar.exe: teststar .pas testdefs.pas test1ib.pas 
test . ob] 
tpc teststar /m 


test .ob]: test.asm 
tasm test.asm test.ob] 


まず TESTSTAR.EXE が TESTSTAR.PAS 、TESTDEFS.PAS 、TESTLIB.PAS と 
TEST.OBJ に よっ て 構成 され て いる こと を 表し て いま す 。1 行 目 の “ 学 " は 改行 を 無視 
し て 、 次 の 行 に 記述 が 続い て いる こと を 示し ます 。 長 い 記述 を だ どら だ ら と 続け る と 後 で 
読む と き に 長い 時 間 を 必要 と し ます が 、 こ の マー ク を 使っ て 行 を 区 切る と 、 ソ ー ス プロ 
グラ ム の 種類 (Pascal 、C 、 ア セン ブリ 言語 な ど ) 別に 分 ける と いっ た 意味 付け が 簡単 
に 行え を ます 。 こ の と き 、 人 科 単 な コメ ント を つけ て お きた けれ ば 、 ま ず 、 行 を 変え て 先頭 
に " 孝 "( 半 角 文 字 で ) と 空 提 を つけ ます 。 こ の 後に コメ ント を 続け て 記述 すれ ば よい の 
で す 。 

さて 、 話 を 元 に 戻し ます 。3 行 目 は TESTSTAR.EXE を 作成 する た め の 方 法 、 つ ま 
り 、 コ ン パ イル や アセ ンプ ブル の 方 法 が 記述 され ます 。 こ の 例 で は コマ ンド ライ ンコ ン パ 
イラ TPC.EXE の MAKE 機能 を 使う た め に /M を 指定 し て いる の で TESTDEFS.PAS 
や や TESTLIB.PAS に つい て の コン パイ ル 方 法 に つい て の 記述 が 必要 あり ませ ん 。 

次 の TEST.OBJ に つい て の 記述 は この オプ ジェ クト ファ イル が TEST.ASM に よっ 
て 構成 され て いる こと を 表し て いま す 。 そ の 次 の 記述 は も う 見 当 が つく で し ょ う 。 そう 
で す 。 こ の 行 は TEST.OBJ を 作成 する た め の 方 法 (アセ モ セン ブル の し か た ) に つい て 記述 
され て いま す 。TASM と いう の は Borland International 社 製 の アセ ンプ ブラ で す 。 も っ 
と 詳し い 使 い 方 は TURBO Pascal に 添付 され て いる ユー ザー ズ ガ イド に あり ます 。 高 
度 な 使い 方 に チャ レン ジ し た い 人 は そちら を 一 度 読 むこ と を お すす めし ます 。 


12-2-4m 条 件 コン パイ ル 

1 種類 の ソー スプ ログ ラム で 様々 な 状況 に 対応 する プロ グラ ム を 作成 し よう と する と 
する の は 非常 に 難し いこ と で す 。 た と えば 、PC-9801 用 の プロ グラ ム 、IBM-PC 用 の 
プロ グラ ム 、FM-R 用 の プロ グラ ム を 基本 的 な 処理 が 同じ だ か ら と いう よう な 理由 か ら 
1 つの プロ グラ ム と し て 管理 し よう と する と 、 こ の 条件 コン パイ ル 機 能 を 使わ な いで 実 


| 
| 
| 
】 
1 
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現す る と 大 変 な た こと に な っ て きま す 。 各 機種 ご と と に プロ グラ ム フ ァ イル と メイ ク フ ァ イ 
ル を 用 意 し な けれ ば な ら な く な る か ら で す 。 

そこ で 条件 コン パイ ル 機 能 が 登場 し ます 。 条 件 の 指定 方 法 は TURBO Pascal で 使用 
し て いる コン パイ ラ 指 令 に よく 似 て いる の で 違和感 な く 使 うこ と が で きる で し ょ う 。 次 
に 使用 する こと が で きる 条件 を 示し ます 。 


他 の 条件 指令 で 使う シン ポル を 定義 
{SUNDEF シン ボ ポル} | 定義 済み シン ポル を 除去 


シン ボル が 定義 済み な ら 続く 部 分 を コン パイ ル 
シン ポル が 直義 な ら 災 く 部分 コンパイル 
x が ON を ら 絡 く 部分 を コンパイル 


以下 、 順 に くわ し くみ て いき まし ょ う 。 


(a) DEFINE 、$UNDET 指令 

この 指令 は 指定 され た シン ボル が 定義 きれ て いる か どう か に よっ て 処理 を 変え る 
WIFDEF や $IFNDEF と いっ た 指令 を 有効 に 機能 させ る た め に シン ボル を 定義 し た り 、 
除去 し た りす る 指令 で す 。 

$DEFINE 指令 で は シン ボル を 定義 し 、$UNDEF 指令 で は シン ボル を 除去 (未定 義 の 
状態 た) し ます 。 ま た 、 シ ン ボ ル は コン パイ ル す る と き に 定義 する こと も 可能 で す 。 

シン ボル を 定義 むす る に は $DEFINE を 使っ て 、 


(SDEFINE シン ボル )} 


と いう 1 行 を ソー ス フ ァ イル 内 に 記述 し ます 。 シ ン ボ ル は 通常 使用 する 識別 名 と 同じ よ 
う に 長 さ 、 許 され る 文字 な ど に 制限 が ある の で 注意 し て くだ さい 。 た と えば 、 
{$DEFINE DEBUGS} 
と ソー ス フ ァ イル 内 に 記述 する と 、 シ ン ボ ル “DEBUGS” が 定義 され ます 。 こ の 定義 は 
これ 以降 の 部 分 で 有効 に な り ます 。 し か し 、$UNDEFE 指令 で この シン ボル が 除去 され 
た 場合 、$UNDEF 指令 以降 は 無効 に な り ま す 。 
この シン ボル “DEBUGS” を 除去 する $UNDEF 指令 は 以下 の よう に 記述 し ます 。 
{$UNDEF DEBUGS} 
さら に 、 コ マン ドラ イン コン パイ ラ で コン パイ ル を 行う と き は /D オプ ショ ン を 指定 
する こと で 同様 の シン ボル を 定義 むす る こと が で きま す 。 以 下 に TEST.PAS を コン パイ 
ル す る と き に シン ボル DEBUGS と IBM を 定義 する 方 法 を 示し ます 。 


TPC TEST /DDEBUGS  /DIBM 
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IDE( 統 合 環 境 ) で シン ボル を 定義 むす る に は 、O/C/Conditional Defines オプ ショ ン を 
使い ます 。 シ ン ボ ル を いく つか 定義 し た い 場 合 に は シン ボル と シン ボル の 区 切り に セミ 
コロ ン を 使用 し ます 。 上 記 の 例 と 同じ シン ボル を 定義 むせ する に は 、 入 力 ボ ックス が 表示 さ 
れ た ら 次 の よう に 入力 し ます 。 


DEBUGS , TBM 


シン ボル に は TURBO Pascal が 自動 的 に 定義 し て いる も の が いく つか あり 、 ユ ー ザ ー 


の プロ グラ ミン グ を 助け る 働き を し て いま す 。 こ の シン ボル は ユー ザー が 定義 し た も の 


と 同じ よう に チェ ッ ク す る こと が で きま す 。 


いつ も 定義 され て いる (** の 部 分 は バー ジョ ン 6.0 で は 60 と な る ) 
いつ も 定義 され て いる 
コン パイ ル 時 に 8087 が 存在 し て いる と き に 定義 され る 

VER**( た と えば VER60) シン ボル は コン パイ ラ の バー ジョ ン の 違い を 吸収 し ます 。 
つま り 、 将 来 機能 が 拡張 され た と き で も 異な る バー ジョ ン 用 の プロ グラ ム を 1 本 の ソー 
ス フ ァ イル で 管理 する こと が で きま す 。 

MSDOS シン ボル は MS-DOS 上 で コン パイ ル が 行わ れ て いる と き に 定義 され ます 。 
つま り 、 現 状 で は TURBO Pascal は MS-DOS で し か 動作 し ませ ん か らい つも 定義 さき 
D@k る こと に な り ま す 。 

CPU86 シン ボル は イン テル の 8088 、8086 、80186 、80286 、80386 、80486 と いっ 
た Intel iAPX86 シリ ー ズ の CPU を 使用 し た コン ピュ ー タ で コン パイ ル が 行わ れ て い 
る と き に 定義 さき され ます 。 つ まり 、 こ の シン ボル も 現状 で は いつ も 定義 きれ て いる こと に 
な り ま す 。 

CPU87 シン ボル は デー タ 型 に SINGLE 、 DOUBLE 、EXTENDED 、COMP と いっ 
た IEEE 浮動 小数 点 型 を 使用 する と き に 、8087 数 値 演算 コ プ ロ セッ サ が 存在 し て いる 
か どう か を チェ ッ ク す る と き に 使う こと が で きま す 。 

この シン ボル は コン パイ ル 時 に 設定 され る も の な の で 、 あ な た の 友だち な ど に 実行 
ファ イル (*.EXE) を 作っ て あげ る よう を な 場合 に は 使わ な い ほ う が よ いで し ょ う 。 


(b) $IFDEF 、$IFNDEE 、$IFOPT 、$ELSE 、$ENDIF 指令 
この 指令 は パス カル の IF 文 と 同じ よう に 働き ます 。 つ まり 、 


{$IF*** シン ボル } 
TEXT1 

{$ELSE} 

TEXT2 

{$ENDIF} 


「 
| 
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と いう よう な 記述 が ある と き 、{$IF*** シン ボル } の 条件 が 真 の と き は TEXT1 が コ 
ン パ イル され 、TEXT2 は コメ ント と 同じ 扱い に な り ま す 。 そ の 反対 に 条件 が 偽 の と き 
は TEXT1 が コメ ント の 扱い に な り 、TEXT2 が コン パイ ル さ れ ま す 。 

つま り 、 {$ELSE} は パス カル の ELSE と 同じ 役割 を 果たし ます 。 {$ENDIF} は BEGIN 
や END に あたる も の が な いた め 、TEXT2 の 終了 を コン パイ ラ に 知ら せる 役割 を し て 
いま す 。 パ スカ ル で の END の こと だ と 思っ て いれ ば よい で し ょ う 。 また 、 こ の 構文 は 
16 レベ ル ま で ネス ト す る こと が で きま す 。 

$IFDEF 指令 と $IFNDEF 指令 は 反対 の 意味 で 使わ れ ま す 。 つ まり 、 上 記 の よう な 例 
を $IFDEEF と $IFNDEF で 記述 し た と する と 、$IFDEF を 使っ た と き は シン ボル が 定義 
され て いる と き TEXT1 が コン パイ ル さ れ 、$IFNDEF を 使っ た と き は シン ボル が 定義 
され て いな いと き TEXT1 が コン パイ ル さ れ ま す 。 

IFOPT 指令 は コン パイ ラオ プシ ョ ン を チェ ッ ク す る と き に 使用 し ます 。 た と えば 、 
N オプ ショ ン を チェ ッ ク し て 8087 が ある と き に は DOUBLE 型 を 使用 し て 計算 精度 を 
上 げ 、 な いと き に は REAL 型 を 使用 し て 計算 スピ ー ド を 上 げた いよ うな と き に は 次 の 
よう に 変数 を 定義 むる こと も 可能 で す 。 

VAR 


{$IFOPT N 二 } 


TEST : DOUBLE: 
{$ELSE} 

MO よ  .  :RAL: 
{$ENDIF} 


$IFOPT 指令 は {SIFOPT  N-} と いう 記述 も 認め て いま すか ら 、 こ の 記述 法 を 使う 
と 上 記 の 例 は 逆 に な り 、 


VAR 
{$IFOPT N-} 

TEST : REAL: 
{$ELSE} 

TEST : DOUBLE: 
{$ENDIF} 


と な り ま す 。 プロ グラ ム す る と き に 分 か りや すい ほう を 選ん で 使い 分 ける と よい で し ょ う 。 
$IFOPT 指令 で チェ ッ ク で きる コン パイ ラオ プシ ョ ン は 以下 の 通り で す 。 


$A, $B, $D, $E, $F、 $G, $T, $L, $N, $0, $R、$S, $V, $X 
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12-2-5m ユ ー テ ィ リ ティ の 使い 方 

TURBO Pascal に は プロ グラ ム 開 発 に 必要 、 ま た は 便利 な ユー ティ リティ が 付属 し 
て きま す 。 こ こ で は 、TPUMOVER 、MAKE 、TOUCH 、GREP 、BINOBJ と いっ 
た あま り 聞 いた こと が な いよ うな も の に つい て 説明 し て いき ます 。 


(1) TPUMOVER. 

この ユー ティ リティ は 主 に TURBO.TPL と いう コン パイ ル 時 に 使用 する シス テム ユ 
ニッ ト を 編集 する た め の も の で す 。 ユ ニッ ト フ ァイル に は .TPU と .TPL と いう 2 種類 
の 形態 が 用 意 き され て いま す 。 

ユー ザー が 作成 する ユニ ッ ト フ ァイル は コン パイ ル す る と *.TPU と いう ファ イル 
(TURBO Pascal Unit) を 作成 し ます が 、 こ の ファ イル は 1 つの ユニ ッ ト で で き て いま 
す 。 し か し 、*.TPL と いう ファ イル (TURBO Pascal Library) は 複数 の ユニ ッ ト を 持つ 
こと が で きま す 。 つ まり 、TURBO Pascal コン パイ ラ が 使用 する TURBO.TPL は 、 一 
般 的 に 必要 な ユニ ッ ト (標準 ユニット) を すべ て 含ん だ ユニ ッ ト の ライ ブラ リ な の で す 。 
この ファ イル は コン パイ ル 時 に 必ず 使用 する の で メモ リ 内 に ロー ド さ れ て し まい ま 
す 。 そ の た め 、 コ ン パ イル の 対象 と な る ファ イル が 大 きい 場合 に は コン パイ ル す る の に 
必要 な メモ リ が 足り な く な る と いっ た こと が 起こ り ま す 。 そ の よう な と き 、 普 段 使用 し 
な い ユ ニッ ト を TURBO.TPL か ら 取り 除く こと で 使用 可能 メモ リ を 確保 する こと が で 
きま す 。 こ の ファ イル の 中 に 含ま れ て いる ユニ ッ ト は SYSTEM 、PRINTER 、CRT 、 
DOS 、OVERLAY の 5 つ で す 。 

さて 、TURBO.TPL は この くら い に し て 、 次 は 編集 する た め の プ ログ ラム 側 に つい 
て 説明 し ます 。 こ の プロ グラ ム (TPUMOVER.EXE) は メニ ュー 形式 で 編集 対象 の ユ 
ニッ ト を 選択 し た 後 、 追 加 す る の か 、 削 除 す る の か を 指定 する だ け で OK 、 と いう 非 
常に 使い 勝手 の よい プロ グラ ム に 仕上 が っ て いる た め 、 使 い 方 に つい て の 心配 は まっ た 
く 必 要 あ り ま せん 。 使 っ て いて わか ら な いこ と が あっ て も 、f・1 キー を 押す こと で 使用 
する キー の 説明 や 簡単 な 例 が 表示 され る と いう 統合 環境 並み の 親切 さ で す 。 


TPUMDVER ファ イル 名 1 ファ イル 名 2 


と 入力 する と 、 画 面 上 に 左右 に 1 つづ つ 、2 つの ウィ ンド ウ が 表示 され 、 ウ ィ ン ド ウ 
の 一 番 上 に は ファ イル 名 が 表示 され 、 ウ ィ ン ド ウ の 中 に は その ファ イル が 持っ て いる ユ 
ニッ ト の 一 覧 表 が 表示 され ます 。 ど ちら の ウィ ンド ウ が 選択 きれ て いる か は 、 ユ ニッ ト 
を 選択 する た め の バ ー が 表示 され て いる か で すぐ に わか る と 思い ます 。 ま た 、PC-98 版 
で は ウィ ンド ウ の 枠 が 少し 太く な り ま す (IBM-PO 版 で は 2 重 線 に な る ) 。 

また 、 フ ァイル 名 1 は 左側 、 フ ァイル 名 2 は 右側 の ウィ ンド ウ に 表示 され ます 。 こ の 
2 つの ファ イル 名 は 指定 し な く て も よく 、 フ ァイル 名 2 が 省略 され た と き は 右側 の ウィ 
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ンド ウ に は “NONAME.TPU” と いう 名 前 が つけ られ ます 。2 つと も 省略 され た と き は 
左側 に は TURBO.TPL を 読み 込み 、 右 側 の ウィ ンド ウ に は “NONAME.TPU” と いう 
名 前 が つき ます 。 ま た 、 指 定 さ れ た ファ イル 名 が 見 つか ら な いと き は *.TPL と いう ファ 
イル 名 の 一 覧 表 を 表示 し ます 。 

この ユー ティ リティ で 使用 で きる 主 な キー と 機能 は 画面 の 一 番 下 に 表示 され ます が 、 
それ ら は 次 の 9 つ で す 。 

f・ 


選択 さき れ て いる ウィ ンド ウ に 新しい ファ イル を 読み 込む 
|f・4 | パー の つい て いる ユニ ッ ト の 詳し 情報 を 表示 する 

ユニ ッ ト の マー ク と 解除 

f・1 、f・2 、f・3 、f・6 、ESC キー 以外 の も の に つい て も う 少 し 説明 し まし ょ う 。 
f・4 キー を 押す と 、 ポ ッ プ アッ プ ウ ィ ン ド ウ と 呼ば れる 別 の ウィ ンド ウ が 開き 、 こ の 
中 に バー が つい て いた ユニ ッ ト の 名 前 、 コ ー ド サイ ズ 、 デ ー タ サイ ズ 、 シ ン ボ ポル の 大 き 

さ 、 依 存する ユニ ッ ト な どの 情報 が 表示 され ます 。 実 は これ ら の 情報 は 普段 か ら 表 示さ 
れ て いる の で す が 、 ウ ィ ン ド ウ の 大 きき さ の 問題 で 依存 する ユニ ッ ト の 表示 が 1 つ に 限 
定 さ れ て いる の で す 。 こ の 場所 に 表示 され て いる ユニ ッ ト 名 の 後に ピリ オド が 3 つ 続 い 
て いる と き は 依存 する ユニ ッ ト が 複数 存在 し て いる こと を 示し ます 。 し た が っ て 、 こ の 
キー を 使う の は 依存 する ユニ ッ ト を すべ て 知り た いと きだ け と いう こと に な り ま す 。 

十 キ ー は コピ ー や 消去 の 対象 と な る ユニ ッ ト を 指定 する の に 使い ます 。 対象 と な る ユ 
ニッ ト は 複数 選択 する こと が 可能 で す 。 マ ー ク の 方 法 は 始め に キー を 押す と マー ク さ 
れ 、 もう一度 押 す と マー ク が 解除 され る と いっ た 簡単 な も の で す 。 

INS キー を 押す と 、 マ ー ク 済み の ユニ ッ ト が 選択 さき れ て いな い ほ う の ウ ィ ン ド ウ に コ 
ピー され ます 。 こ こ が 間 違え や すい と ころ な の で す が 、 マ ル チ ウ ィ ン ド ウ に 対応 し て ぃ い 
る エディ タ な ど で は ウィ ンド ウ を 選択 し な お し て 、 コ ピー し た い ウ ィ ン ド ウ を 選択 し て 
か ら コ ピー を 行い ます が 、 こ の ユー ティ リティ で は 選択 きま れ て いな い ウ ィ ン ド ウ に し か 
コピ ー で き な い と いう ちょ っ と 変わ っ た つく り に な っ て いる の で 注意 が 必要 で す 。 

DEL キー を 押す と 、 マ ー ク 済み の ユニ ッ ト が 選択 さん て いる ウィ ンド ウ か ら 削 除き 
れ ま す 。 さ ら に 、TURBO.TPL を 編集 する に は 画面 上 で の 操作 だ け で な く コ マン ドラ 
イン か ら 直 接 編集 する こと も 可能 で 、 そ の 書式 は 以下 の 通り です 。 

TPUMOVER TURBO / パ ラメ ー タ ユニ ッ ト 名 


号 1 の 1 も DI 叶 


ト こ >) 


ユニ ッ ト 名 に は 追加 、 削 除 し た い ユ ニッ ト の 名 前 を 記述 し ます 。 パラ メー タ に は 十 、 -、 
*、?7 の 4 つが 用 意 き れ て いま す 。 
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TURBO.TPL に 指定 し た ユニ ッ ト を 追加 する 
TURBO.TPL か ら 指定 し た ユニ ッ ト を 削除 する 


/* | TURBO.TPL か ら 指 定 し た ユニ ッ ト を 取り 出し 、 ユ ニッ ト 名 .TPU と いう 
ファ イル に セー プ ブ す る 3 


7 
(2) MAKE 

IDE の MAKE 機能 で も 説明 し まし た が 、MAKE ユ ー テ ィ リ ティ は MAKE ファ イ 
ル と 呼ば れる 指示 ファ イル が 必要 と な り ま す 。 つ まり 、 い くら MAKE ユー ティ リティ 
を 持っ て いて も 、 こ の MAKE ファ イル を 作成 する 技術 が な けれ ば 使え ませ ん 。 

TURBO Pascal の ディ スク の 伴 TP 壮 UNITS の 中 に 入っ て いる MSA 社 か ら 提 供 さ れ 
て ぃ る RS232C.MAK を 取り 出し て みて くだ さい 。 これ を 例 に し まし ょ う 。 

拡張 子 が MAK に な っ て いる ファ イル を メイ ク フ ァ イル と いい ます 。 こ の ファ イル は 
エディ タ で テキ スト ファ イル と し て 作り ます 。 そ れ で は さっ そく RS232C.MAK の 内 容 
を 見 て み ま し ょ う 。 先頭 の 2 行 は それ ぞ れ TASM 、MASM と いう 名 称 の マク ロ の 内 容 
を 定義 し て いま す 。 た と えば 、1 行 目 で は マク ロ TASM は TASM /ml と 同じ も の と な 
り ま す 。3 行 目 は マク ロ ASM が マク ロ TASM の 展開 で ある こと を 定義 し ます 。 

5 行 目 で は MAKE の 対象 に な る ファ イル を 示し ます 。7 行 目 で RS232C.OBJ は 
RS232C.ASM に 依存 し て お り 、 そ の 依存 関係 は 8 行 目 に 書い て ある よう に 、 タ ー ボ 
アセ ンプ ラ に ml オプ ショ ン を つけ て アセ ンプ ブル し た も の で ある こと を 示し ます 。$* は 
拡張 子 を 除く こと を 示し ます 。10 行 目 は ユニ ッ ト RS232C.TPU が どの ファ イル に 依存 
する の か と 、 コ マン ドラ イン コン パイ ラ TPC で どの よう に コン パイ ル す れ ば よい の か 
を 示し て いま す 。13 行 目 も まっ た く 同 様 で す 。 


較 RS232C.MAK 
TASM = TASM /m1 


MASM = MASM -m1 
ASM = \$(TASM) 


ALL: RS232C.0BJ RS232C.TPU RSDEMO .EXE 


: RS232C.0BJ: RS232C.ASM 
\$(ASM) \$$*$: 


oO ココ の の 必 の 〇 いい ビビ 


10: RS232C.TPU: RS232C.PAS RS232C.0BJ 
まま は TPC /M RS232C.PAS 


13: RSDEMO .EXE: RS232C.TPU RSDEMO .PAS 
14: TPC RSDEMO .PAS 


結局 、 メ イク ファ イル は TURBO Pascal で の プロ グラ ム の コン パイ ル 手 順 を 記述 し 
た バッ チ フ ァイル な の で す 。 手順 を ファ イル に 記述 し て お け ば 、 後 で 再 コ ン パ イル する 


1 
1 
3 
4 
6 

】 
】 
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必要 が 生 し た と き に 、 古 い フ ァイル を 使っ た り 、 ど こ か が 抜け て エラ ー が 出 て わ ず ら わ 
され る と いっ た こと が な く な り ま す 。 プ ログ ラム を 開発 し た ら す ぐに メイ ク フ ァ イル を 
作っ て お く の は 、 複 数 の TPU ファ イル や OBJ ファ イル を 合成 する 場合 、 非 常に 有効 
で つ オ 。 

この メイ ク フ ァ イル を 実際 に 走ら せる に は 、MS-DOS の コマ ンド ライ ン に 対し て 、 


MAKE -fRS232C 


と 入力 し ます 。MAKE ユ ー テ ィ リ ティ は 非常 に 利用 価値 の 高い も の で す 。 ぜひ TURBO 
Pascal の ユー ザー ズ ガ イド に 目 を 通し て お く よ う お 勧め し ます 。 な お 、MAKE ユ ー テ ィ 
リティ 自体 に ヘル プ 機 能 が あり ます か ら 、MAKE -? ま た は -h と し て 走ら せ て 出力 され 
る 表示 を 参照 し て みて くだ さい 。 


(3) TOUCH 

ファ イル の 更新 作成 日 時 を MS-DOS が 今 管理 し て いる 日 時 に 変更 し て くれ ます 。 あ る 
プロ グラ ム フ ァ イル を 構成 し て いる 他 の プロ グラ ム フ ァ イル を TOUCH する と 、MAKE 
ユー ティ リティ に より その プロ グラ ム フ ァ イル か ら 作 られ る EXE ファ イル の 日 時 が 更 
新 さ れ ま す 。 


(4) GREP 
複数 の ファ イル の 中 か ら 指 定 さ れ た テキ スト を 探し 出す も の で す 。 プ ログ ラム が 複数 
の ファ イル を 合成 し て 作ら れ て いる 場合 に 、 あ る 特定 の 手続 き が どこ に ある と か 、 あ る 
入出 力 を どの ファ イル で する の か を 探す と き に 非常 に 便利 で す 。GREP に も ヘル プ 機 
能 が あり ます 。 


(5) BINOBJ 

ファ イル の 種類 に か か わら ず ど ん な ファ イル で も TURBO Pascal に 手続 き と し て リ 
ンク 可能 な .OBJ ファ イル に 変換 し て くれ ます 。 こ の ユー ティ リティ の あり が た み (?) を 
実験 する た め に TURBO Pascal の 中 に サン プル プロ グラ ム BGILINK.PAS が 例 と し て 
提供 され て いま す 。 こ の 例 で は 決ま っ た バイ ナリ ファ イル を 読み 込ま な けれ ば な ら な い 
プロ グラ ム 部 分 を BINOBJ に より 外部 手続 き に 変更 し 、 バ イナ リ デ ー タ ご と external 
宣言 され る 手続 き に する 方 法 を 示し て いま す 。 

ユー ティ リティ は 、 こ こ で 説明 し た こと だ け で すぐ に 使え る と いう わけ に は 行き ませ 
ん が 、 こ れ ほ どの 機能 を 使わ な い 手 は あり ませ ん 。 それに TURBO Pascal を 購入 し た 
と き の 価格 の 中 に この ユー ティ リティ も 含ま れ て いる の で す 。 お 金 に きび し い パ ソコ ン 
マニ ア と し て は TURBO Pascal を 100% 使 いこ な し た いも の で す 。 
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12-2-6mTURBO C と の リン ク 


マニ ュ ア ル に は アセ ンプ ブリ 言語 と の リン ク の 記述 は あり ます が 、C 〇 言語 と の リン ク 
に 関す る 記述 は あり ませ ん 。 し か し 、 ア セン ブリ 言語 と の リン ク に 使用 し た $L 指令 は 
イン テル ・ リ ロケ ー タ ブル オプ ジェ クト モジ ュー ルフ ォ ー マ ッ ト ( OBJ) の 形式 を 持っ 
た ファ イル と TURBO Pascal と を つなぐ た め の も の で し た 。 し た が っ て 、OBJ 形式 の 
ファ イル を は きだ す コ ン パ イラ な ら ば 、 ど の よう な コン パイ ラ で も 可能 で あろ うと 考え 
て チャ レン ジ し た 結果 、 以 下 の 方 法 を 使っ て リン ク す る こと に 成功 し まし た 。 

まず 、 初 め に 用 意 す る も の が 2 つ あ り ま す 。 1 つ は TURBO C コン パイ ラ 、 も う 1 つ 
は TURBO Pascal の ディ スク 中 に ある TURBO.CFG か CTOPAS.TC で す 。 あ な た が 
統合 環境 版 を 使っ て いる の な ら CTOPAS.TC を 、 コ マン ドラ イン 版 を 使っ て いる な ら 
ば TURBO.CFG を 用 意 し て くだ さい 。 こ の ファ イル は 、C コン パイ ラ の オプ ショ ン を 
決定 する た め の も の で す 。 

次 の リス ト を 見 て くだ さい 。 こ れ は 、X の Y 乗 を 求め ' る プロ グラ ム で す 。 


較 X-Y 
1: /* program X の Y 乗 */ 
9 
3: typedef unsigned int Word : 
4: 
5: word mu1t(word x, word Y) /* X の Y 乗 */ 
ik t 
5 word count, 
8: reSu]t= 1: 
9: 
10: for(count=1 : count < く = Y: Count++) 
11: reSu]t * ネ = X: /* resu]t := resu]t * x */ 
ま 語 2 
48 return(resu]t) : 
14: } 
15: 
16: program LinkC: { TURBG C と の リン ク } 
和 
18: {$L mu1t.ob]} て リン ク す る obj ファ イル } 
19: 
20: function mu1t(x,7 : word) : word: externa] : 
2 : 
22: begin 
23: write]ln(?2 の 4 乗 王 !,mu1t(2,4)) : 
24: end. 


始め の リス ト が 〇 言語 の も の で 、 次 の リス ト が Pascal の も の で す 。 こ の プロ グラ ム 
は C 言 語 で 記述 し た 関数 を Pascal 側 か ら 呼 び 出 す だ け の も の で す 。 こ こ で は 、2 の 4 
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乗 を 求め て いま す 。C 言語 の 1 行 目 で は 、 変 数 の 型 を 定義 し て いま す 。Pascal の TYPE 
宣言 と 同じ で す 。C 言語 に は WORD と いう 型 が な いた め 、 同 じ 意 味 の unsigned int 弄 
を WORD と 宣言 し て いま す 。 そ の あと は 、mult と いう WORD 型 の 関数 を 定義 し て 、 
その 内 容 を 記述 し て いる だ け の も の で す 。 

Pascal で は $L 指令 を 使っ て Pascal と リン ク す る OBJ ファ イル を 指定 し て 、 こ の ファ 
イル 中 に 記述 し て ある 関数 の 型 や 引数 な ど を 言 し て いま す 。 こ こ で 重要 な の は external 
と いう 予約 語 で す 。 こ れ は 、 サ ププ ログ ラム が 他 の モジ ュー ル (この 場合 mult.obj) に 
記述 し て ある こと を TURBO Pascal コン パイ ラ に 伝え る た め の も の で す 。 

さて 、 こ の プロ グラ ム の コン パイ ル 手 順 で す が 、 そ れ は 以下 の よう に な り ま す 。 


(1) TURBO C で 言語 の プロ グラ ム を コン パイ ル す る 。 
統合 環境 版 の 場合 は 、 次 の よう に 入力 し ます 。 


TC /CCTOPAS.TC MULT.C 


9 マン ドラ ザン 上 で は 次 の は うに 入力 じ ま 95 


TCC MULT.C 


(2) TURBO Pascal で Pascal プロ グラ ム を コン バ パイル する 。 

この よう に し て みる と 、 と て も 人 簡単 に 見 えま す 。 

し か し 、 注 意 す る こと が 2 つ あ り ま す 。1 つ は 、C プ ログ ラム 中 に は 、C の ラン タイ 
ムラ イブ ラリ を 使用 する 関数 は 使え を ませ ん 。 通常 これ ら の 関数 は 、 実 行 フ ァイル を 生 
成す る 際 に リン カ が 各 ラ イブ ラリ か ら リ ンク し て くる た め に 、OBJ ファ イル 中 に は こ 
れ ら の 関数 の コー ド が 含ま れ な いか ら で す 。 絶対 に これ ら の 関数 が 使え を な い の か と いう 
と 、 ち ゃ ん と これ を 回 避 す る 方 法 が 用 意 き れ て いま す 。 こ れ ら の 関数 が 使 を ない の は ラ 
スプ ズラ J が ちら リック し て で て る ため を な の で さ なん を そ あ みあ し て ん 叶 守 ボ し て 書い て し 
まえ ば コン パイ ル し た と き に OBJ ファ イル に オプ ジェ クト コー ド と し て 書き 込ま れ ま 
す 。 し か し 、 こ れ ら の 関数 を 自分 で 作っ て いた の で は 膨大 な 時 間 が か か り ま すし 、 バ グ 
も 当然 発生 し ます 。 こ の よう な 問題 を クリ ア す る た め に は Borland International か ら 
発売 し て いる C 言 語 の ラン タイ ムラ イブ ラリ の ソー スコ ー ド を 入手 すれ ば よい の で す 。 
当然 な が ら 、 こ の ソー スコ ー ド は 現在 使っ て いる ライ ブラ リ の も の で ある た め 、 で き あ 
が っ た モジ ュー ル は (入力 ミス な どの バグ が あれ ば それ も 含め て ) まっ た く 同 じ 動 作 を 
し ます 。 

も う 1 つの 間 題 は 、TURBO C の バー ジョ ン で す 。 yer2.0 の 場合 は TURBO Pascal 
に 用 意 さ れ て ぃ いる CTOPAS.TC 、TURBO.CFG が 使え る の で す が 、ver1.5 の 場合 、 私 
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が 試し た 限り で は TURBO Pascal に 付属 の も の は 使え ませ ん で し た 。 そ の か わり に 、 
TURBO C(ver1.5) に つい て いた も の は 使う こと が で きま し た 。 

さて 、 こ こま で を 理解 で きた 人 な ら ば 、 手 続き (Procedure) を TURBO C で 記述 する 
こと も 簡単 に で きる は ず で す 。TURBO Pascal ディ スク の 中 に ある CPASDEMO.C 、 
CPASDEMO.PAS の 中 に も 説明 が あり ます 。 

通常 は この よう な 使い 方 で すむ は ず で す 。 と ころ が 、 ユ ニッ ト の 中 で スピ ー ド を 向上 
させ た 処理 に し な く て は な ら な い 場 合 も ある と 思い ます 。 同様 に ユニ ッ ト 内 に 記述 すれ 
ば よい と 考え ら え ます が 、 実 は この 方 法 で は うま くい きま せん 。 

少し 意地 に な っ て 調べ て みる と 、 ユ ニッ ト を 使う や り 方 と 今 ま で の や り 方 で は どう も 
メモ エリ U モデ ル が 異な る よう で す 。 今 ま で の 坊 法 は メイ ルン ブロ グラ ム の な か に リン ク し て 
いま す が 、 こ の 状態 で TURBO Pascal が 使 を る メモ リ は リフ ァ レ ンス ガイ ド の TURBO 
Pascal の 内 部 構造 に 書い て ある 通り デー タ 、 コ ー ド の 各 セ グ メ ント は 64KB まで で す 
(ユニ ッ ト 等 を 使用 する と き 、 コ ー ド 全体 の サイ ズ は 64KB を 越え られ ます ) 。 こ の た 
め に 今 ま で の 方 法 で は TURBO C で コン パイ ル す る 際 、 ス モー ル モ デ ル を 用 いま し た 。 
し か し 、 ユ ニッ ト 内 に リン ク し よう と する と 話 が 違っ て きま す 。 ユ ニッ ト 内 部 で の メ 
モリ の 使わ れ 方 は マニ ュ ア ル に 記載 され て いな いた め 推 測 の 域 を 出 ま せん が 、1 つ だ け 
は っ きり し て いる こと は 8086 系 の CPU を 使っ て いる こと に よる と 思わ れ ま す 。 
TURBO Pascal で は 、 プ ログ ラム 中 、 ユ ニッ ト の 実現 部 で 宣言 され た 手続 き 、 関 数 
は NEAR コー ル と し て コー ド に 展開 され 、 ユ ニッ ト の イン タフ ェ ー ス 部 で 宣言 され た 
手続 き 、 関 数 は FAR コー ル に な り ま す 。 こ の た め 、TURBO C で コン パイ ル す る 際 に 
メモ リモ デル を 変更 する 必要 が あり ます 。 実験 的 に 調べ た 結果 、NEAR コー ル し て い 
る と ころ で は コン パク トモ デル を 、EAR コー ル し て いる と ころ で は ラー ジ モ デ ル を 使 
用 すず る どう まく いき まし た 。 

これ は 、 あ る 程度 予想 で きま し た 。FAR コー ル し て いる と ころ で は 当然 、 コ ー ド も 
デー タ も 別 モ セグ メン ト に ある と 思わ れる の で ラー ジ モ デ ル (両方 と も FAR ポイ ンタ ) を 
使用 すれ ば よい だ ろう と 予想 し まし た 。 こ れ は 当たっ た の で す が 、NEAR コー ル し て い 
る を の の E 作 みごと に 外れ RG しま いま し だ た NEAR コール で いる と ころ は 、 コ モニ 
ド も デー タ も 64KB の 制限 内 な の で 、 今 まで の 方 法 と 同じ スモ ー ル モデ ル を 使用 すれ 
(LEO で 才 太 だ の で す 。 と ころ が 、 款 走 し で し まっ だ の です お 5 

次 に 考 ぶ た た の は 、 ミ ディ アム モデ ル で す 。 こ れ は 、 丘 ニッ ト を 使う こと に よっ て コー 
ド が 64K の 制限 を 越え を る か ら で は な いか と 考え たため です 。 と ころ が と いう か 、 や は 
DS と 9229S あ か と の が 9E リモ 天 ル で も うま く 行 きま せん で し か な た 。 

順番 か ら 行 く と 次 は コン パク トモ デル で す 。 こ れ は も う 半 信 半 疑 で し た 。 な ぜ か と い 
えば 、 デ ー タ が 64K の 制限 を 越え る 理由 が 考え つか な か っ た た めで す 。 と ころ が 、 う 
まく いっ て し まっ た の で す 。 こ れ に は 、 ず いぶ ん と 悩ま され まし た 。 先ほど の TURBO 
Pascal の 内 部 構造 の と ころ を 読み 返し て みて くだ さい 。 プ ログ ラム が 実行 し て いる 間 
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は 、DS( デ ー タ セグ メン ト ) レジ スタ の 内 容 は 変化 し な い の で 、 デ ー タ の サイ ズ は 64K 
を 越え を られ な いこ と に な っ て いる の で す 。 こ こ で 、 矛 盾 が 生じ て し まっ た の で す 。 

DS は 不変 の は ず だ が 、 ミ ディ アム モデ ル で 暴走 する と いう こと は 、 ユ ニッ ト 内 で は 
DS を 変更 し て いる の で は な いか ? な ど と 考え まし た 。 結 局 の と ころ 、 結 論 ら し い 結 論 
は 得 ら ちら れ ませ ん で し た 。 し か し 、 リ ンク が で きた の で よし と し まし た 。 時 間 と ツー ル 
(TURBO DEBUGGER 等 ) が ある か た は 、 ぜ ひ 調 べ て みて くだ さい 。 

以上 で 、TURBO C と の リン ク の 解説 を 終わ り ま す が 、 特 に 難し いこ と は な か っ た で 
し ょ う 。 普通 に リン ク す る の で あれ ば スモ ー ル モデ ル を 、 ユ ニッ ト 内 だ け で 使う 関数 、 
手続 き を キリ ンク する と き は コン パク トモ デル を 、 他 の ユニ ッ ト か ら も 使い た い 、 関 数 、 
手続 き を リン ク す る と き に は ラー ジ モ デ ル を 用 いて Pascal 型 の 呼び 出し を する よう に 
オプ ショ ン を 設定 すれ ば よい の で す 。 こ の テク ニッ ク を 使う こと で ぼく は 1 時 間 30 分 
も か か っ て いた ある プロ グラ ム を 30 分 以内 に 終わ ら せ る こと に 成功 し まし た 。 じ つ に 
3 倍 も の スピ ー ド アッ プ を 簡単 に 実現 する こと が で きた の で す 。 


申 干 し テク ニッ ク 
12-3m テ バッ ガ 

高速 化 テ クニ ッ ク は 参考 に な り ま し た か 。 こ れ か ら の あな た に は きっ と 役に立つ で 
し ょ う 。 し か し 、 高 速 化す る 前 に プロ グラ ム が 完全 (どの よう に 完成 きれ て いる よう に 
見 を る プロ グラ ム に も バグ は 潜ん で いま す ) に 動作 し て いな けれ ば いけ ませ ん 。 さ も な 
いと 、 高 速 化し た 意味 が あり ませ ん 。 せ っ か く 高 速 化し た 部 分 に バグ が あっ た の で は 修 
正 が また 必要 に な り ま す 。 そ こ で 、 デ バッ グ 、 つ まり バグ を と る た め の 効 率 的 な 方 法 が 
必要 に な り ま す 。 こ こ で は 、 デ バッ プ グ の 方 法 に つい て 考え て み ま し ょ う 。 

コン ピュ ー タ サイ エン ス で も 結論 の 出 て いな い 方 法論 (デバ ッ グ の こと で す ) に つい 
て の 考察 を 行 お うと いう の で すか ら 、 こ の 方 法 は ぼく や 仲間 達 の 経験 的 む な ち もの に すぎ な 
いと いう こと を 始め に お 断り し て お きま す 。 ま ず 、 現 在 の デバ ッ ガ に つい て 考え て み ま 
し ょ う 。 現 在 、 入 手 し や すい デバ ッ ガ に は 以下 の よう な も の が あり ます 。 


IMicrosoft 社 
DEBUG( デ バッ カ ) 
SYMDEB( シ ム デ ブ : シン ボリ ッ ク デ バッ ガ ) 
CV( コ ー ド ビュ ー) 
Borland International 社 
TURBO DEBUGGER 


これ 以外 に も 多く の ソフ ト ハ ウス か ら 独 自 の 機能 を 持っ た デバ ッ ガ が 数 多く 発表 きれ 
て いま す が 、 こ こ で は それ ら を すべ て 説明 する の は と て も 無理 で すか ら 、 上 記 の も の に 
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つい て の み 説 明 す る こと に し ます 。 

さて 、 こ の 中 で も 歴史 的 な 背景 や 扱う プロ グラ ム の 形態 で 分 類する こと が で きま す 。 
初め て 登場 し た の が “DEBUG” で す 。 こ の ころ は プロ グラ ム の 開発 は ご く 限 られ た 人 
(プロ の プロ グラ マ や ハイ レベ ル の パソ コン マニ ア ) し か 行なわ な か っ た だ た めも あり ま 
し た が 、 デ バッ グ ツ ー ル も 技術 的 に あま り 進 ん で いな か っ た の で 、1 ステ ッ プ ずつ 実行 
し で ゆい ぐ と いう よう 恋 デ が ッ グ も か や きま せん で ん ル た 。 

この 後 、 少 し 改良 され た も の が “SYMDEB” で す 。 “少し” と 書い た の に は 理由 が あっ 
て 、 こ の 改良 は メモ リ 上 に 確保 し た 変数 エリ ア を シン ボル (変数 名 ) で 参照 する こと が 
で きる も の で 当時 と し て は か な り 画 期 的 な も の で し た 。 

さて 、 最後 に 登場 する の が 最新 鋭 の デバ ッ ガ CV( コ ー ド ビュ ー) と TURBO DEBUG- 
GER で す 。 こ の デバ ッ ガ で は ユン パイ ラ に 対応 し て いて 、 コ ン パ イラ が 生成 し た 実行 
可能 な コー ド と その 基 で ある ソー スコ ー ド (Pascal プロ グラ ム や CO プ ログ ラム な どの こ 
と ) と が 1 対 1 に 対応 し て いる の で 、DEBUG の と き の よ うに バグ を 見 つけ て か ら ソ ー 
スコ ー ド 上 の どこ に 対応 し て いる の か を 探す 手間 が 省け る よう に な り ま し た 。 そ れ だ け 
で な く 開 発 時 の 論理 ミス (ロジック ミ ス ) を 見 つけ る の に 威力 を 発揮 し ます 。 

この タイ プ の デバ ッ ガ は 実行 ファ イル (*.EXE) 内 に デバ ッ グ の た め の 情 報 を 持つ の 
で 、 作 成 中 の プロ グラ ム す べ て を コン パイ ル し て 実行 ファ イル を 作成 し な けれ ば な り ま 
せん 。 こ の た め 、 メ イン メモ リ か ら (MS-DOS シス テム が 占め る 領域 オキ デバ パッ ガ の 使用 
する サイ ズ ) 分 の サイ ズ 以 下 の プ ログ ラム し か デバ ッ グ する こと が で きま せん 。 

デバ ッ ガ の み で 約 200KB を 占め ます か ら 、 メ イン メモ リ 640KB の シス テム で は 日 
語 入力 の FEP な どの デバ イス ドラ イ バ を 含め る と 300KB を 下 回 ゐ 。 サ イズ の ター ゲッ 
ト プ ロ グラ ム し か デバ ッ グ で き な い こと に な り ま す 。 コ ン パ イラ 言語 (C や Pascal な 
ど ) で は 、 コ ン パ イル 後 の サ イズ が 200KB や 300KB 程度 の プロ グラ ム は すぐ に 生成 さ 
れ て し まい ます 。 こ れ は 、 コ ン パ イラ が 関数 な どの ライ ブラ リ や デバ ッ グ 情報 を プロ グ 
ラム に 付加 し て 実行 ファ イル を 生成 する か ら で す 。 

バグ が 発見 され る 度 に ソー スプ ログ ラム を 修正 し て 、 何 度 も コン パイ ル し な けれ ば な 
り ま せん 。 こ の 点 で は 、IDE に 付属 の デバ ッ ガ の ほう が 操作 し や すい と いえ る で し ょ 
う 。 し か し 、IDE に は コン パイ ラ の 本 体 が 含ま れ て いる た め 、 デ バッ ガ 単 体 の と きよ り 
も デバ ッ グ で きる プロ グラ ムサイ ズ が 少な く な っ て し まい ます 。 こ の よう な 状況 を 考慮 
に いれ て 最も デバ ッ グ の し や すい 環境 は 何かと 考え た 結果 、 


「 プ ログ ラム を 部 品 と し て 考え て デバ ッ グ する こと 」 


が 非常 に 大 切な こと を 再 確認 し まし た 。 

デバ ッ グ の ノウ ハウ は これ だ け で す 。 で も この こと は 忘れ られ が ちな の で す 。 皆 さん 
は ちゃ ん と 関数 や 手続 きど と に デバ ッ グ し て いま すか 。 リ スト の 上 だ け の デバ ッ グ で は 
自分 だ け の 思い 込み で OK を 出し て し まう こと が よく あり ます 。 こ の た め 、 バ グ の 発 
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見 を 遅く し て し まう の で す 。 で すか ら 、IDE 内 の デバ ッ ガ で 実行 し な がら デバ ッ グ し て 
みて くだ さい 。 き っ と 、 思 っ た より も 後 の (全体 の ) デバ ッ グ が 楽に で きる は ず で す 。 

で は 、 関 数 や 手続 きど と の デバ ッ グ を どの よう に し た ら よ い の で し ょ うか 。 そ れ を 説 
明 し まし ょ う 。 関 数 や 手続 き は 目的 が あっ て 作る も の で すか ら 、 こ の 使用 目的 に 合う よ 
うな 値 を セッ ト し て 呼び 出す た め の 仮 の メイ ンプ ログ ラム を 作成 し て みる の で す 。 こ の 
と き に ター ゲッ ト と な る 関数 や 手続 き の あ る ファ イル と 同じ ファ イル 内 に 作成 し て も よ 
い の で す が 、TEST.PAS の よう に 別 の ファ イル に 作成 する こと を お 勧め し ます 。 

別 の ファ イル に 作成 し た ほう が よい 理由 を 考え て み ま し ょ う 。 仮 の メイ ンプ ログ ラム 
は あく まで も 「 仮 」 な の で 実際 に 実行 きせ る と き に は 削除 し て お く 必 要 が あり ます 。 け 
れ ど も 、 同 じ フ ァイル 内 に この 仮 の プロ グラ ム を 作成 し た 場合 、 削 除 し 忘れ て し まう こ 
と が あっ た り 、 削 除 し な く て も よい と ころ まで 削除 し て し まう 、 な どの 失敗 を 防ぐ こと 
が で きる の で す 。 ま た 、 こ の よう に 作成 し て お く と 実際 の 動き と 同じ よう な 動作 を する 
の で 、 よ り 本 番 (実際 ) に 近い 状態 で デバ ッ グ する こと が で きま す 。 

この よう な 理由 か ら 、 ぼ く は 部 品 ご と に デバ ッ グ し た 後に 全体 の デア バッ グ を し ます 。 
そし て IDE の デバ ッ ガ に プロ グラ ム 全 体 が 載り リ ほ きら な いと き に 初め て 、TURBO DE- 
BUGGER や CV( コ ー ド ビ ピュー) の よう な デバ ッ ガ を 使う よう に し て いま す 。 か な り 大 
き な プ ログ ラム を 作ら な い 限 り 、IDE の デバ ッ ガ で 用 が 済ん で し まい ます 。 

さて 、 デ バッ グ の 考え 方 は 以上 で 理解 で きた と 思い ます 。 そ こ で 、 い よい よ ょ TURBO 
Pascal の IDE の デバ ッ ガ の コマ ンド に つい て 説明 し ます 。 大 きく わけ て デバ ッ ガ の 機 
能 は 3 つ あ り ま す 。 プ ログ ラム の 実行 、 値 (変数 ) の 監視 や 変更 、 停 止 位置 (ブレ イク ポ 
イン ト ) の 設定 で す 。 実 行 と 停止 位置 に は 深い 関係 が ある の で 2 つ に 分 け て も よかっ た 
の で す が 、 プ ログ ラム の デバ ッ グ を する 場合 に は 実行 する より も 停止 させ る こと の ほう 
が 難し い の で 、 あ えて この よう に 分 類 し て み ま し た 5, 

さて 、 で は IDE と TURBO DEBUGGER に どの よう な コマ ンド が ある の か を 主 な 
コマ ンド だ け に 限定 し 、 以 下 に 分 類 し て 示し ます 。 こ こ で は 簡単 に 入力 が で きる “ホッ 
トキ ー” と 呼ば れる コマ ンド だ け を 示す こと に し ます 。 

| プロ グラ ム の 実行 ] 

1 ステ ッ プ 毎 の 実行 
ター ツル 代 還 ま で の "ーー 
カー ソル 位置 まで の 実行 

CTRL-f・9 | 実行 (TURBO DEBUGGER で は f・ 9) 
値 (変数 ) の 監視 、 変 更 


CTRL-f・4 | 値 の 参照 、 設 定 
CTRL-f・7 | Watch ウィ ンド ウ へ の 追加 
停止 位置 (プレ イク ポイ ント ) の 設定 ゴ 
CTRL-f・8 | プレ イク ポイ ント の 設定 、 解 除 

その 他 の 機能 


CTRL-f・3 | コー ルス タッ ク 
LCTRL-f・5 | 実行 中 画面 イメ ー ジ と の 切り 替え 


ユ 
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ぼく が 主 に 使っ て いる コマ ンド は この くら いで す 。 つ まり 、 わ ず か 9 つの ホッ トキ ー 
を 覚え る だ け で 快適 に デバ ッ グ が 行う こと が で きま す 。 
で は 、 実 際 に デバ ッ グ を 行なう と き の 手 順に つい て 考え て み ま し ょ う 。 


圏 sum-dbg 
: function Sum( i : integer) : integer: 


: Va エ 
Tota]1 , c : integer : 


OLG Ciー う 丘 も o- ギ GO 
Tota] := Tota] + Ci 


Sum := Tota] : 


1 
2 
3 
4 
5: 
6: begin{ of Sum } 
7 
8 
9 
0 
1: end: { of Sum } 


この リス ト が デバ ッ グ する ター ゲッ トブ プロ グラ ム で す 。 こ の リス ト の 関数 Sum は 1 
か ら i ま で の 値 を 加算 する と いう も の で す 。 次 に 「 仮 」 の メイ ンプ ログ ラム を 示し ます 。 


圏 main-dbg 
1: program test: 
の: 
3: {$1 sum.pas} 
4: 
5: begin 
6: write1n(?Tota] = 〉,sum(10)): 
7: end. 


ここ で は ター ゲッ ド デ ロ グラ ム を ネネ ング ルー ド し で 、 ダー ゲッ ド ズ ロ グラ な を 取 ず 込 
ん で いま す が 、 関 数 や 手続 き を パー ツ と し て と ら え る な ら ば 、 こ こ は ユ ニッ ト に し て お 
いた ほう が よい で し ょ う 。 こ の 「 仮 」 の メイ ンプ ログ ラム で は 複雑 な こと を し な い の が 
デバ ッ グ を 簡単 に する コツ で す 。 

まず 、「 仮 」 の メイ ンプ ログ ラム を 「1 ス テッ プ 毎 の 実行 (f・7) 」 で 実行 し ます 。「 1 ス 
テッ プ の 実行 (f・8) 」 で 実行 し て し まう と 、Sum が 計算 きれ て し まう た めで す 。 こ れ 以 
降 は コマ ンド を (f・*) と 表し ます 。 プ ログ ラム の 実行 が 関数 Sum に 移っ た ら 、(CTRL-f・ 
7) で Watch ウィ ンド ウ に 変数 Total と c を 表示 させ て くだ さい 。 初 め に 表示 され て い 
る 値 は 、 念 まで メモ リ 上 に あっ た 値 で すか ら ゴ ミ だ と 思っ て 気 に し な いで くだ さい 。 

さて 、(f・7) で 1 ステッ プ 毎 に 実行 し て いく と FEOR ルー プ で 止ま っ て いる よう に 見 
えま す 。 実 は これ で よい の で す 。 ル ー プ と は ぐる ぐる 回 る 』 と いう こと な の で 、i の 
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回 数 だ け こ の 加算 処理 が 繰り 返さ れ て いる の で す 。 ル ー プ の 内 容 が 2 ステ ッ プ 以上 ある 
場合 に は FOR ルー プ 内 の BEGIN と END の 間 を 繰り 返し 実行 する こと に な り ま す 。 

ソー スコ ー ド で デバ ッ グ する 利点 は 、 こ の よう に 実行 し て いる 様子 が 目 に 見 える こと 
で す 。 こ こま で 実行 し て 、 注 意 深い 人 は 気がつい た と 思い ます が 、Total の 値 が お か し 
い の で す 。 実 は Total の 初期 化 を し て いな いた め に この よう な 現象 が 起こ っ て し まっ た 
の で す 。 こ の よう な ミス は よく ある の で 十分 気 を つけ て くだ さい 。 で は 、 こ の バグ を と 
る た め に 変数 Total に 0 を セッ ト す る 文 を FOR ルー プ の 前 に 追加 し て くだ さい 。 
関数 Sum の 修正 が 終わ っ た ら 同 じ よ うに (f・7) で 実行 し て みて くだ さい 。 今度 は 正 
解 の “55" が 表示 され た は ず で す 。 む ろ ん 、 タ イプ ミス な ど な く 正しく プロ グラ ム を 入 
力 で きた と し て の 話 で す 。 実 際 に “55" が 表示 され て いる か の 確認 は 、(CTRL-f・5) で 
実行 中 の 画面 と 切り 替え を て みて くだ さい 。 こ の 画面 で “55" が 表示 され て いた ら OK で 
す 。「 仮 」 の メイ ンプ ログ ラム 内 の 関数 Sum に 引き 渡す 値 を 10 か ら 他 の 値 に 変え て 何 
回 か 実行 し て くだ さい 。 そ の 間 、 お か し な 答え を 表示 し な けれ ば デバ ッ グ は 完了 で す 。 

この 例 は 非常 に 簡単 な も の で し た が 、 デ バッ グ の 手順 は 複雑 な ちの で も 同じ で す 。 バ 
グ の な い 部 分 を 順に 確認 し て いき ます 。 つ まり 、 こ の こと は 逆 に バグ を 見 つけ る こと に 
な る の で す 。 焦ら ず に 、 順 序 よ く 1 ステ ッ プ づつ 確認 し て いっ て くだ さい 。 
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| 


生 送 速度 (BPS) | 75 | 50 | 300 | 600 3600 


(AL に 08H 以 上 の 値 を 設定 し た 場合 は 1200BPS) 
喪 10-1 伝送 速度 


パリ ティ ・ イ ネー ブル (1: イネーブル 0: 
パリ ティ 指定 (|: 偶 数 0: 奇 数 ) 


表 10-2 


b, b。 bs b。 ba bz b ! bo 
TXEN 


人 イネ ー プ ブル 


(|: イ ネー ブル 0: ディ セー ブル ) 
デー タ ター ミナ ル レデ ィ 
(I:ON 0:OFF) 
受信 イネ ー プ ブル (1: イ ネー ブル 0: デ ィ セ ー ブ ル ) 
セン ドブ レイ クキ ャ ラク タ 
(Il:07H を 送信 0:07H を 送信 し な い ) 
エラ ー セ ッ ト 
(|: す べ て の エラ ー フ ラグ (PE, OE, FE) を リセ ッ ト 0: リ セッ ト し な い ) 


。 送信 要求 (|:ON 0:OFF) 
内 部 リセ ッ ト (|: リセ ッ ト 0: リ セッ ト し な い ) 


表 10-3 PD8251A コ マン ド 指 定 


b, b。 bs b。 bs bz bi b。 


に 
ピン 3 


ざこ 口 J モ ー ロ ーV 昌 SS 


受 
信 


に 
と 2 


泊 敵 る < 


1 : デー タ 受 信 の 割り 込み が 発生 し た 


Interface Field : INT ( ・ し て いな い 


未 使用 

FLAG : RS-232C BIO 用 内 部 フラ グフ ィ ー ル ド * 

CMD : コマ ンド 情報 セー プ 領 域 

STIME : 送信 時 の TXRDY 待 ち 時間 (500ms 単 位 ) セー ブ 領 域 
RTIME : 受信 時 の 割り 込み 待ち 時 間 (500m s 単位 ) セー プ 領 域 


XOFF : Buffer の 格納 可能 デー タ 長 の 1/4 の 値 


XON : Buffer の 格納 可能 デー タ 長 の 3/4 の 値 


HEADP : Buffer の 先 訓 アド レス 


TAILP : Buffer の 最後 尾 番 地 の ア ドレ ス 


CNT : Buffer 内 の 有効 デー タ 長 (ワー ド 単 位 ) 


PUTP : Buffer の 空 エ リア の 先頭 ポイ ンタ 


GETP : Buffer 内 の 有効 デー タ の 先頭 ポイ ンタ ーー 


*FLAG : RS-232C BIO 用 内 部 フラ グフ ィ ー ル ド の 内 容 INIT : RS-232C イ ンタ フェ ー ス (PD8251) 


の 初期 化 済 み BFULL : 受信 バッ ファ が FULL BOVF : 受信 バッ ファ オー バー フロ ー が 発生 XON:XON 


処理 (CTRL-S 出 力 ) を 行う (3/4) XOFF : XOFF 処 理 (CTRL-0 出 力 ) を 行う (1/4) 
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表 10-4 受信 バッ ファ 形式 


b2 bl 


Data Set 


TXE RXRDY TXRDY 


送信 バッ ファ | 受信 | 送 


| Ready 
Data Set 
0 Ready 
OFF 
(a) CH : PD8251 ス テー タス 情報 
ピッ ト 
略 
2 更 cp 
着 呼 送信 不可 | 受信 キャ リア 
検出 な し 


2 あ り 
3 


I な し 
PE 


送信 可 | 受信 キャ リア 


検 出 


し 
(b) CL : シス テム ポー トス テー タス 


表 10-5 CX の 内 容 


JICC 出版 局 の コン ピュ ー タ 関連 書籍 
新版 TURBO C ト レー ニン グマ ニュ アル 


ー ビ ギ ナー が 基礎 か ら は じ め て C せ を 学ぶ まで の 一 番 や き し い 解 説 書 一 
田 深 町 共栄 園 定価 2670 円 (税込 ) 
イン スト ー ル の 手順 か ら 応用 ゲロ グラ ム ま で を サン フッ ツレ ・ プ ログ ラ ム を 参照 し な が ら 無 理 な く 進 め ま す 。 廊 法 の 他 、 グ ラフ ィ ッ クス 


TURBO PASCAL Ver.6 ト レー ニン グマ ニュ アル 


ー プ ログ ラミ ング を 初歩 か ら 学 ぶた め の い ちば ん や さ し v \ 解 説 書 一 

圏 小林 件 史 圏 定価 2360 円 (税込 ) 0 

TURBO PASCAL を 使い こなす た め の ノ ウ ハ ウ を ビギナー 向け に 、 例 題 を 中 心 に わか りや す (解説 。 プ ログ ラミ ング の 基礎 を 学ぶ 
た め の 最 適 の 書 。 


新版 Quick C Ver.2.0 対 応 ト レー ニン グマ ニュ アル 


ー わ か りや すい プロ グラ ム の た め の い ちば ん や さ し い 解 説 書 一 

圏 田中 秀和 園 定価 2750 円 (税込 ) 

QuickC の 基本 的 な 操作 解説 は も ちろ ん 、 ア ル ゴ リ ズム と PAD に よる 検討 を 徹底 する こと に よっ て 理解 し や すい プロ グラ ム を 作成 。 
豊 語 な 例題 に よる 解説 で 、 プ ログ ラム は 初め て と いう ひと で 5 大 氷 夫 。 


BASIC プレ イン グマ ニュ アル 


一 Quick BASIC で 殴り 込め ! 一 

圏 大 友 龍 一 著 プ ディ ー シ ス 編 較 定価 1120 円 (税込) 

ある 日 、 神 官 B と 神 礼 P は メイ ン フ レー ム 神 殿 の 上 に 立ち 、 こ う 言 っ な た 。「 ア ル テ ィ ア と いう 小 き な 国 へ 行っ て BASIC 神 の 教え を 広 
め よ う 」 そ し て …… 、 そ の 人 後 を 語る 、BASIC プ ログ ラミ ング を 楽し む 書 。 


MS-DOS プレ イン グマ ニュ アル 


ーDOS だ け で こん な に 遊べ ちゃ う 一 

田島 本 穫 清 著 プ ディ ー シ ス 編 置 定価 1120 円 (税込 ) 

無意識 に DIR コマ ンド を 打ち 込む よ う で は 、 あ な た は 「 デ ィ レ クト リ 症 候 群 」 の 鞭 れ が あり ます 。 プ ロン プ ト が ある 限り 必ず DIR 
ょ 打ち 込む よう に な る 前 に 、 本 書 で MS-DOS と の 付き 合い か た を 知り まし ょ う 。 


低 価格 パソ コン ウル トラ 購入 ガイ ド 


ー は じ め て で も 低 予 算 で 一 揃え 一 

時 荻窪 詩 較 定 価 1200 円 (税込) 

ツラ ン を は じ め て 購入 する ひと も 、 2 目 の ひと も その タイ プ 別 に マシ ン を 検討 ご き る 。 周 辺 機器 か ら ソ フト ウェ ア も 掲載 予算 
や 知識 が な く て も この 一 冊 で パッ コン 一 式 を 揃え よう 。 


オペ レー ショ ンマ ニュ アル ー 大 郎 ver。4 


ー パ ソコ ン 初 心 者 の た め の 完 全 操 縦 ガ イド ー 

脅 森 正和 画定 価 1800 円 (税込 ) * 

パソ コン に 触っ た こと も な いと いう 人 で も 0K。 「 一 大 郎 ver.4」 の 基本 操作 方 法 と 、 数 ある 機能 の 中 か ら び ひ 覚え て お きた しい 機能 を 
選ん て 解説 膨大 な コマ ンド の 解説 も 、 簡 潔 か つ ュ ユン パク ト に 説明 。 


Macintosh THE 2nd MANUAL 


mw キン トッ シュ ョ ュ ネ テッ プア テッ プ 箱 一 

圏 は や し と し お 較 定 価 1600 円 (税込 ) - 

マッ ク を 使い 始め て か ら 気 づく 問題 や 疑問 。 も っ と 便利 な 活用 法 は ? まっ た く 〈 の 初心 者 で は な いけ れ と ど パ ワー ユー ザー で も な いと 
いう ひと に 贈る 。 


頃 Auto CAD プ ロフ ェ ッ シ ョ ナル テク ニッ ク (GXdM/GX5 吉 ) 


一 Auto LISP と タブ レッ ト に よる み カス タマ イズ の すす め 一 

置 江口 武士 郎 圏 定価 3100 円 (税込) 

タプ レッ ト と Auto LISP に よる カス タマ イ ズ に つい て の 解説 を 中 心 に 、Auto CAD を きら に 使い や すい も の に する だ た め の ノ ウ ハ ウ 
の 紹介 や 著者 の 手 に よる プロ グラ ム も 5 掲載 。 


電子 水彩 


コー ンコ ビーー ニ ベス 


この 価格 で この 機能 


16 色 で 実現 し た 新しい CG 世 界 


まる で 画材 を その まま パソ ノコ ン に 持ち 込 
ん だ よう な 味わい が 出せ ます 。 こ れ 
は 、 これ まで 専用 の ボー ド な し に は 得 
られ な か っ た 世界 で す 。 使 い 方 に よっ 
て 、 水 彩 画 、 油 絵 、 ク レ パ ス 画 、 曇 
絵 、 そ し て それ を 組み 合わ せ た よ うな 
世界 が 広がり ます 。 階 調 の 中 で < に じ 
み 〉 < ぼかし > < 溶け 込み > な ど が で 
き 、 透 明 感 の ある 水彩 の よう な 絵 を 描 
く こ と が 可能 で す 。 


多彩 な 筆 の 種類 


た と えば 、 こ ん な も の が あり ます 。 

食 吸 収 紙 に イン ク が に じん だ よう な フラ 
クタ ル ペ ン 欠 濃 度 分 布 が 選べ る エア プ 
ラ シ 劉 透明 度 や 密度 を 調整 する 機能 
信 絵 の 具 を 削り と っ た り 、 混 ぜ た りす 
る プッ シュ ペン 欠 毛 筆 効 果 の スム ー ズ 
プラ シ な ど 。 他 に も た くさ ん あり 、 形 、 
大 さ 、 密 度 な ど が 選択 で きま す 。 


充実 し た 製図 器具 、 変形 機能 


基本 的 な 直線 や 円 は も ちろ ん 、 応用 


で 連結 線 、 多 角形 、 
短 形 な ど が 描け ます 。 筆 の 種類 や 線 
の 密度 は 選択 する こと が で きま す 。 ま 
た 、 移 動 、 コ ピー、 変 形 、 拡 大 縮 


自由 曲線 、 弧 、 


小 、 転 回 な どの 変形 機能 も あり ます 。 


自在 に 作れ る 16 色 バレット 


色 は 、 R () G ( 緑 ) B ( 青 ) の 
濃度 を 調整 する こと で 、4096 色 の 組 
み 合 わせ の 中 か ら 自 在 に 作れ ます 。 パ 
ター ン と し て 保存 で きる の で 、 描 いた 
絵 を 一 瞬 で 色 変 換 す る こと も 可能 で 
す 。 グ ラ デ ー シ ョ ン も ワン タッ チ で 設定 
で きま す 。 


その 他 、 充 実 し た 画像 処理 


マス ク を 使え ます 。 文字 も 普通 書体 の 
ほか 、 イ タリ ッ ク 、 ボー ルド 体 に 変換 で 
きま す 。 フ ィ ル ター を か けた り ズ ー ム な 
ど が で き 、 モ ザイ ク 処 理 や レイ アウ ト 処 
理 な ども 可能 で す 。 


イル ジス キャ ナー で 、 画像 を 取 込 む 
こと が で きま す 。 プリ ンタ ー は 、 カ ラー 
に も モノ クロ に も 対応 し て いま す 。 付 属 


の ユー ティ リティ ー で 、 カ ラー ポジ を 作 
成 で きる ファ イル を 形成 する こと が 可能 
ke 


互換 性 


フル カラ ー ペ イン ト ソ フト 「 ス ー パ ー タ 
プロ ー」 ( 香 サビ エンス) と オペ レー シ 
ョ ン が ほぼ 同じ で 、 そ の ファ イル 形式 で 
出力 で きる 他 、 主 要 CG ソ フト と は 「 ア 
ー ト ライ ブラ リ 」 を 通し て デー タ の 互換 
性 が あり ます 。 


価格 の 3.000g 


(消費 税 を 含み ませ ん ) 

使用 環境 プ MS-DOS Ver.2.| 以 上 、 メ モ 
リ 640KB 以 上 

必要 機器 一 本 体 NEC PC-980IVX, 
RX, RA, VM (16 色 ボー ド 増 設 機 )、UV 
CV2I 較 バス マウ ス 

拡張 機器 較 ス キャ ナー エプソン 
GT-I000 プ 3000 プ 4000、 シ ャ ー プ JX-200 
較 プ リン ター NEC PC-PRI0I、PC- 
PR20」、 エ プ ソ ン ESC-P24-84J、 


圏 メ ディ アブ グ 5” 2HD、3.5" 2HD 


< テッ ター トト ラー イ ーー ラリ 


2 つの 魅力 で 
低 価格 


品 揃え 豊富 な クリ ッ プ アー ト 


クリ ッ プ と いう の は 、 く 切抜き > の こと 。 
ちょ っ と し た 絵 や 飾り を 切っ た り 貼 っ た 
りす る イメ ー ジ で す 。 お 手持 ちの CG ソ 
フト や 、「 一 太郎 」「 新 松 」 で 読み 込 
むこ と が で きま す 。 お な じみ の マー ク 、 
飾 肢 、 ア イノ メ の 家具 や OA 機 器 、( 絵 ) 
文字 スポ ー ツ 、 動 物 、 乗 物 、 地 図 
な ど 、 計 1000 種 の オリ ジ ナ ルイ ラス ト 
や カッ ト が 、 テ ー マ 別 の ファ イル に 入っ 
て いま が 8 


| ウェ ンプ ブレ レイ ンー 0 東都 代田 


CG デ ー タ の ユ ン バ ー タ 


花 チ 」 「Z's STAFF KID98」 r シ 
ル エ ッ ト 」「 書 図 (絵巻 )」「art V」 
「 エ スキ ー ス 」 な ど 、 主要 CG ソ フト の 
デー タ を 読み 込ん だ り 、 そ れ ぞ れ の デ 
ー タ 形式 で 保存 で き 、 デ ー タ ・ コ ン バ 
ー タ ー の 役割 を 果たし ます 。 (「 花子 」 
の スト ロー ク デ ー タ に は 対応 し ませ 
ん ) 。 


ちょ っ と 気 の き いた 機能 


念 8 色 プ 16 色 両 モ ー ド に 対応 し て い 
ます 
人 簡単 な 搭 画 機能 が 付い て いま す 。 


人 部 分 的 な カッ ト & ペー スト も で きま 

ま 。 

@ デ ィ ス プレ イ の ワー クエ リア は 8 色 の 
場合 、640X900 で 、 縮小 表示 が 可 
能 で す 。 


価格 42.000 


1 半 ょ てん) 


使用 環境 プ MS-DOS Ver. 2.1 以 上 
必要 機器 NEC PC-9800 シ リー ズ (LT, 
XAU2 を 除く ) 

メデ ィ ア グ 5” 2 HD、3.57.2HD 


※MS-DOS は マイ クロ ソフ ト 社 の 登録 商標 で す 。 
その 他 、 上 記 の 各 ソ フト は 、 各 社 の 登録 商標 で 
す 。 


区 鶏 町 5-5-5JIDD PHONE 03-288-1426 


り JICO・ 出 版 案 内 


3 時 間 で 使う 一 太郎 Ver.3 の 本 


市 川 昌 浩 松 岡 裕 典 プ WENET・ 著 
定価 1240 円 2* ソ コン 初心 者 に 、 フ ロッ ピー ディ スク の 扱い 方 か ら 、 起動 の 方 法 、 か な 漢字 変換 の 仕方 、 基 本 的 編 
集 コ マン ド 、 印刷 の 仕方 まで を 豊富 な 図解 と や さ し い 文章 で 解説 


一 太郎 に 捧げ る MS-DOS の 本 


市 川 昌 消 松 岡 裕典 プ WENET・ 著 
定価 1230 円 太郎 を も っ と 安心 し て 、 そ し て 便利 に 使え を る よう に 、 デ ィ ス ク の 初期 化 か ら バ ッ チ ファ イル の 作り 
方 まで 、 一 太郎 の 一 部 と し て の 「MS-DOS」 を 解説 。 


3 時 間 で 使う 一 太郎 Ver.4 の 本 


市 川 昌 浩 松 岡 裕 典 プ WENET・ 著 
定価 1230 円 この 本 と 一 緒 に 「 一 太郎 」 と つき あっ て みて くだ さい 。 わ か りや すい 構成 と 豊富 な 図解 で 「 一 太郎 」 基 本 
操作 が 学べ ます 。 初心 者 に あり が ちな 疑問 に も 答え ます 。 


ノー トバ パパ ソコ ン に 捧げ る MS-DOS の 本 


松岡 裕典 青木 文隆 プ WENET・ 著 
定価 1240 円 パソ コン 初心 者 を 混乱 させ る の は 「 あ た り 前 」 で 片付け られ る MS-DO S で す 。 ノ ー ト パソ コン を 安 
心して 使え る よう に 、MS-DO S の 考え 方 を 丁寧 に 解説 し ます 。 


3 時 間 で 使う Windows 3.0 


安田 幸弘 ・ 着 
定価 1240 円 話題 の Windows3.0 と は 何 な の か ? 何 が で きる の か ? どう 使う の か ? Windows を わか る ・ 触 る ・ 
使い こなす た め に 、 わ か りや すい 構成 と 豊富 な 図解 で 解説 し ます 。 


3 時 間 で 使 う Multiplan 


平川 敬子 ・ 著 
定価 1230 円 使え る 機能 を 厳選 し て 効率 よく Multiplan を 覚え られ る よう に 構成 と に か く は や く 覚 えた い 」、「 マ 
ニュ アル だ け で は よく わか ら な い 」、「 使 えな 機能 は 知り た く な い 」 と いう 人 に 最適 な 超 入門 書 で す 。 


3 時 間 で 使う ロー タス 1-2- 3 
楠見 哲男 ・ 著 


定価 1230 円 豊富 な 機能 を 持つ 「1-2-3」 を これ か ら 使っ て みる と いう 人 に 、 ス テッ プ ・ バ イ ・ ス テッ プ で 、 表 組 の 
作成 か ら マ クロ の 実行 まで を 、 わか りや すく 解脱 し まし だ 。 初 選者 で も す く ( に 使え る よう に な り ま す 。 


3 時 間 で 使う う 人 花子 Ver.2 


平川 敬子 ・ 著 

定価 1230 円 「 花 子 Ver2」 が 、 わ か りや すい 構成 と 豊富 な 図解 で ステ ッ プ ご と に 学べ ます 。 個 別 の 図形 コン ンド の 
解説 か ら 、 編 集 ・ 印 刷 時 の 仕上 げ の ノウ ハウ 、 事 例 で 学ぶ 図 と グラ フ の 作例 集 も ありま す 。 

JI で シッ 
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